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REM ! 
IDENTIFICATION 
PRODUCT CODE: AC-8472C-MC 
PRODUCT NAME : CZDHHCO DHii AUTO-ECHO TEST 
DATE: JUNE 1985 
MAINTAINER : NAC SOFTWARE ENGINEERING 
AUTHOR : G. BAISLEY 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 












NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOFTWARE ON 
ae en ee oe ITS AFFILIATED 


COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 





SEQ 1 
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1.0 ABSTRACT 


VERIFIES THAT THE AUTO ECHO FEATURE OF THE DH11 WORKS. 


2.0 REQUIREMENTS 


2.1 EQUIPMENT 
POP-11 FAMILY STANDARD eng a WITH 4KW OF MEMORY 
ASR-33 TELETYPE OR EQUIVAL 


DH11 ASYNCHRONOUS MULTIPLEXER 
OM11 MAINTENANCE CARD INSTALLED 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4KW OF MEMORY 


3.0 LOADING PROCEDURE 





SEQ 2 


PAGE 2 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES IS TO BE USED 


4.0 STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 


4.1.1 AFTER PROGRAM LOAD CINITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


CZ0HH-CO 
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$8 


31 


SSS RASGNESSSIRASaK 








PEN TEES SEE ee oe oe 
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4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES AFTER 
PROGRAM RESTART 


SWOO=1 


4.1.3 TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 
SWO1=1 


4.2 STARTING ADDRESS 


THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THE RESTART ADDRESS FOR ALL TESTS IS 000200 
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 


4.3 PROGRAM AND/OR OPERATOR ACTION 
4.3.1 INITIAL PROGRAM START 
4.3.1.1 LOAD PROGRAM INTO MEMORY 
4.3.1.2 LOAD ADDRESS 000200 
4.3.1.3 CLEAR CONSOLE SWITCHES 
4.3.1.4 PRESS START 


4.3.1.5 THE PROGRAM WILL TYPE “DH11 AUTO-ECHO TEST” AND WILL 
THEN TYPE “VECTOR ADDRESS-" AND WAIT FOR AN INPUT FROM THE TELETYPE 


-— 


anor ad 
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4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR FOR THE 
DHii TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
NOTE 
WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE 


RETURN> MEAN THAT THE TELETYPE KEY WITH 
THE NAMED FUNCTION SHOULD BE STRUCK 


IF AN INCORRECT ADDRESS IS we we THE PROGRAM WILL TYPE “2” AND WILL 
REPEAT THE SECOND MESSAGE OF 4.3.1.5 


4.3.1.7 THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-” AND WAIT 
FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 
OH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE “7?” AND WILL 
THEN REPEAT THE OF 4.3.1.7 


4.3.1.9 THE PROGRAM WILL TYPE “R* TO INDICATE THAT IT IS ABOUT TO 
START TESTING. AND THEN TESTING WILL BEGIN 


4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 
4.3.2.1 PERFORM 4.3.1.2 TO 4.3.1.5 


4.3.2.2 THE PROGRAM WILL TYPE “OH11 AUTO-ECHO TEST” AND WILL 
THEN CONTINUE AS DESCRIBED IN 4.3.1.9 


4.3.3 PROGRAM RESTART WITH SWOO=1 





SEQ 4 














SEQ 5 
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4.3.3.1 LOAD ADDRESS 000200 


4.3.3.2 SET SWOi=1 


10 
12 4.3.3.3 PRESS START 


16 4.3.3.4 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
20 4.3.4 PROGRAM RESTART WITH SWO1=1 

24 4.3.4.1 LOAD ADDRESS 000200 

28 4.3.4.2 SET SwO0i=1 

4.3.4.3 PRESS START 


36 4.3.4.4 THE PROGRAM WILL TYPE “DHii1 AUTO-ECHO TEST” AND WILL 
37 = TYPE “TEST PC-* AND WILL WAIT FOR AN INPUT FROM THE TELETYPE 


42 4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO BE 
43 STARTED FOLLOWED BY <CARRIAGE RETURN> 


47 4.3.4.6 THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED AND 
WILL START TESTING AT THE SELECTED TEST. 


50 
Si 7 NOTE 


52 

33 CARE MUST BE TAKEN WHEN THIS FEATURE IS 
54 USED, SINCE THERE IS NO PROTECTION 
35 AGAINST SELECTING AN ADDRESS THAT IS IN 
56 THE MIDOLE OF A TEST 





-— 





-— 














SEQ 6 
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NOTE 


IF IT IS DESIRED TO LOOP ON THE TEST 
THAT IS SELECTED SET SWi4=1 BEFORE 
ENTERING THE TEST ADDRESS 


5.0 OPERATING PROCEDURE 


5.1 OPERATIONAL SWITCH SETTINGS 


SWi5=1, HALT ON ERROR 

SW1i4=1, LOOP ON CURRENT TEST 

SWi3=1, SUPPRESS ERROR TYPEOUT 

SWii=1, INHIBIT ITERATIONS 

SWi0=1, ESCAPE TO NEXT TEST ON ERROR 

SWO9=1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 
SWO1=1, START PROGRAM AT SELECTED TEST 

SWOO=1, CHANGE PARAMETERS AT PROGRAM RESTART 


5.2 SUBROUTINE ABSTRACTS 


5.2.1 TRAPCATCHER CLOCATIONS 000000-000776) 


THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS AND TRAPS. 
THE AREA FROM 000000-000776 IS LOADED WITH THE FOLLOWING SEQUENCE 


2 


0 
776 
0 


IF AN UNEXPECTED INTERRUPT OR TRAP eT THE PROGRAM WILL HALT WITH 
THE PC 2 GREATER THAN THE ADDRESS TO WHICH THE PROGRAM TRAPPED. THE 
PROCESSOR STACK MAY BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS 
WHEN THE TRAP OR INTERRUPT OCCURED. 
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5.2.2 START (PROGRAM INITIALIZATION) 


THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS, TYPES THE 
PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR AND CONTROL REGISTER 
ADDRESSES OF THE DHii TO BE TESTED. 


5.2.3 BEGIN (PROGRAM START AND RESTART) 


THIS ROUTINE IS ENTERED IMMEDIATELY AFTER “START” AND EACH TIME A 
PROGRAM PASS HAS BEEN COMPLETED. THE ROUTINE SETS UP THE PROCESSOR 
STACK AND STATUS WORD AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 
TESTING WILL BEGIN. IF SWO1=0 WHEN THIS ROUTINE IS ENTERED TESTING 
WILL START AT Ti CTEST 1). IF SWOl=1 WHEN THIS ROUTINE IS ENTERED, 
TESTING WILL START AT THE PC ENTERED FROM THE TELETYPE KEYBOARD. 


5.2.4 EOP CEND OF PASS) 


THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS HAVE BEEN 
COMPLETED. THIS ROUTINE TYPES THE MAINDEC IDENTIFICATION CODE OF THE 
PROGRAM, ae aa FLAGS AND UPDATES THE PASS COUNT. IF THE 
PROGRAM WAS ADED UNDER ACT11 OR DOP, THE ROUTINE CHECKS FOR RETURN 
TO THE ACTi1 oR. DOP MONITOR. IF THE PROGRAM IS NOT UNDER MONITOR 
CONTROL, THE ROUTINE TRANSFERS TO BEGIN. 


5.2.5 SCOPER (SCOPE LOOP AND ITERATION HANDLER) 


THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. THE ROUTINE 
CHECKS FOR THE FOLLOWING UPON ENTRY 


1. IF SWi0*1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST IN 
SEQUENCE, AFTER CLEARING ERROR FLAGS. 


2. IF SWiil-i, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
SEQUENCE, AFTER CLEARING ERROR FLAGS. 


3. IF SWiéei, THE ROUTINE WILL LOOP ON THE CURRENT TEST 
REGARDLESS OF THE ITERATION COUNT. 


IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1 TO THE COUNT OF 
TES” ITERATIONS, AND COMPARE THIS VALUE TO THE NUMBER OF ITERATIONS 
THAT SHOULD BE PERFORMED. IF THESE NUMBERS ARE EQUAL, THE ROUTINE 
WILL TRANSFER TO THE NEXT TEST IN SEQUENCE. IF THE NUMBERS ARE NOT 
EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED. 





SEQ 7 
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5.2.6 SCOPIR (FREEZE ON CURRENT DATA) 


THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATELY AFTER THE CALL TO THE 
ERROR HANDLER IN THOSE TESTS THAT HAVE VARIABLE PARAMETERS. THIS 
ROUTINE IS ALWAYS ENTERED IN THOSE TESTS, WHETHER OR NOT AN ERROR 
OCCURS. IF SWO9=1, THE RGUTINE WILL TRANSFER CONTROL BACK TO THE TEST 


CONTINUOUSLY WITH THE SAME DATA. IF THIS OPTION IS SELECTED, THE 
tg “SCOPER” IS NEVER ENTERED ANG ITERATION COUNTS WILL NOT BE 


5.2.7 ERRORS CERROR HANDLER) 


THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. WITH ALL CONSOLE 
SWITCHES DOKN, THE ROUTINE PROCEDES AS FOLLOWS: 


1. THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER IS 
ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION ITSELF 
IS FETCHED. THE 8 LSB OF THE EMT INSTRUCTION ARE THE ERROR 
CODE. THIS CODE IS USED TO ACCESS A TABLE OF ERROR MESSAGES 
AND ERROR DATA STORAGE LOCATIONS. 


2. IF “ag TEST THAT FAILED DID NOT FAIL PREVIOUSLY DURING THIS 
PASS, A COMPLETE ERROR REPORT IS MADE IF THE TEST THAT FAILED 
FAILED MORE THAN ONCE DURING THE CURRENT PASS, ONLY THE DATA 
RELATING TO THE FAILURE IS TYPED. IF SWi3=1, NO ERROR 
TYPEOUT IS MADE. 


3. THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SwWiS=1 THE 
PROGRAM WILL HALT WITH THE PC OF THE CALL TO THE ERROR 
ROUTINE IN RO. IF SWiS=0, THE PROGRAM WILL NOT HALT, BUT 

WILL CHECK FOR ESCAPE TO NEXT TEST. 


4. IF SWi0=0, THE ROUTINE WILL RETURN TO THE TEST IN PROGRESS. 
IF $SWi0=1, THE ROUTINE WILL ABORT THE CURRENT TEST, AND 
ae TO THE NEXT TEST IN SEQUENCE, THRU THE ROUTINE 


5.2.8 TRPSRV CTRAP DECODE AND DISPATCH) 


THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION THAT CAUSED THE 
PROGRAM INTERRUPT, AND TRANSFERS CONTROL TO THE ROUTINE THRU THE TABLE 
“TRPTAB” USING THE 8 LSB OF THE TRAP INSTRUCTION AS AN OFFSET TO THE 
POINTER TO THE ROUTINE TO BE ENTERED. 





SEQ 8 





‘ 
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5.3 PROGRAM AND OR OPERATOR ACTION 
5.3.1 PROGRAM START WITH ALL SWITCHES DOWN 


5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 
BEHAVIOR. 


5.3.1.2 AFTER “R" HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION WILL 
BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER OF ITERATIONS 
(SEE LISTING FOR EXACT NUMBER FOR EACH TEST) AND THEN THE PROGRAM WILL 
PROCEED TO THE NEXT TEST. 


ae ee 1.5 WHEN eee HAVE BEEN COMPLETED, THE PROGRAM WILL 


—_— Cc ND THEN RESTART TESTING AT TEST 1 (LOCATION Ti IN THE 


5.5.1.4 IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE 
ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS. 


5.3.2 PROGRAM START WITH SWOO=1 
THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 


5.3.3 PROGRAM START WITH SWO1=1 
5.5.3.1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 


5.3.3.2 TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED AND WILL 
CONTINUE AS DESCRIBED IN 5.3.1.2 
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gt A | oie “CZDHH-C” HAS BEEN TYPED, THE PROGRAM WILL RESUME TESTING 


5.3.4 PROGRAM OPERATION WITH SWi5=1 
5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, THE PROGRAM WILL 


SAME AS 
HALT AFTER THE ERROR TYPEOUT, AND THE PC+2 OF THE CALL TO THE ERROR 
ROUTINE WILL BE DISPLAYED IN RO. 


5.3.5 PROGRAM OPERATION WITH SW13=1 
SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR 


5.3.6 PROGRAM OPERATION WITH SWii=1 
SAME AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE ONLY 


5.3.7 PROGRAM OPERATION WITH SW10=1 


SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR THE CURRENT TEST 
aoe BE ABORTED, AND THE PROGRAM WILL PROCEED TO THE NEXT TEST IN 


5.3.8 PROGRAM OPERATION WITH SW14=1, OR SWO9=1 


THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. SEE SECTION 
6.3 FOR THEIR USE. 








a ee 





SEQ 11 
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~ 6.0 ERRORS 

3 6.1 ERROR HALTS 

> THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS IS AS FOLLOWS 

50 PC+2 MESSAGE 

51 HEADER CIF APPLICABLE) 

= DATA CIF APPLICABLE) 

54 WHERE 

55 PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER + 2; 

56 MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE; 

57 HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW; 

58 DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE. IF 
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THE SAME ERRROR OCCURS IN A GIVEN TEST ON THE SAME PASS, AND IF DATA 
a — WITH THAT ERROR, ONLY DATA IS TYPE ON SUCCEEDING ERROR 


A DATA IS ASSOCIATED WITH THE ERROR THE COMPLETE ERROR MESSAGE IS 


6.1.1 ERROR DESCRIPTIONS 
SEE LISTING FOR DETAILS OF ERRORS 


6.2 ERROR RECOVERY 


6.2.1 SwWiS=-0 


IF THE PROGRAM IS RUN WITH SW1iS5=0, NO OPERATOR ACTION IS REQUIRED TO 
CONTINUE TESTING 


6.2.2 SwWiS1 


IF THE PROGRAM IS RUN WITH SWiS*i1, TO CONTINUE TESTING AFTER THE 
PROGRAM HAS HALTED, PRESS THE PROCESSOR CONSOLE CONTINUE SWITCH 


6.2.3 ILLEGAL. INTERRUPTS 


IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED DURING PROGRAM 
INITIALIZATION, THE PROGRAM WILL HALT IN THE TRAPCATCHER. THE ADDRESS 
AT WHICH THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE 
pad apni —" THE PROGRAM MUST ge R RESTARTED AT 200 TO RECOVER 













6.3 SCOPE LOOPING 


SEQ 12 
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-5.1 TO SCOPE ON A SPECIFIC TEST. SET SWi4=1 AND SWi3*1. THIS WILL 
CAUSE THE PROGRAM TO Y LOOP ON THE SAME TEST. AND WILL 


CONTINUOUSL 
CAUSE ALL ERROR TYPEOUTS TO BE INHIBITED 


6.3.2 TO SCOPE ON A SPECIFIC VALUE OF A PATAMETER WITHIN A TEST, SET 
“1 TO FREEZE THE —_—- (SEE LISTING FOR THOSE TESTS THAT 


SWO9 
INCORPORATE THIS FEA 


6.3.3 PROGRAM START TO SCOPE LOOP ON SELECTED TEST 
PERFORM SECTION 4.3.4 WITH SW14=1 


7.0 RESTRICTIONS 


7.1 STARTING 
THE OH11 TEST CARD MUST BE INSTALLED 


7.2 RUNNING 
NONE 


SEQ 13 


-— 
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8.0 MISCELLANEOUS 


8.1 EXECUTION TIME 


THE TIME FOR ONE PASS OF THE PROGRAM (END OF TYPEOUT OF CZDHH-C TO END 
OF TYPEOQUT OF CZDWH-C) IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE 


BELOW 

TIME 
PROCESSOR 
PDP-11705,10 
POP-11/720 
POP -11740 
POP-11745 





SEQ 14 
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9.0 PROGRAM DESCRIPTION 


FIRST, VERIFY THAT AUTO-ECHO WORKS ON ALL LINES BY TRANSMITTING ONE CHARACTER 
WITH AUTO ECHO ENABLED. 


THEN A BINARY PATTERN IS TRANSMITTED ON ALL LINES EXCEPT THE ON WITH AUTO-ECHO 
ENABLED. A ‘one CHARACTER IS TRANSMITTED ON THAT LINE. ALL DATA IS VERIFIED 


TO BE 


10.0 LISTING 
: 




















SEQ 16 
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1 ; DHMAC-A - DHil MACRO LIBRARY 
: ; COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
4a 
5 .LIST ME 
. -NLIST MC,.MD,CND 
104 
119 
131 
148 
158 
167 
303 
339 
373 
520 ; 3 
563 
595 
607 
652 
664 
691 
7i2 
743 ; CMS REPLACEMENT HISTORY 
m3 
4 
746 ; #9 SKONETSKI 26-APR-1985 16:23:08 “FIXED CAUSING 
747 ; #8 SKONETSKI 22-APR-1985 16:48:03 “TYPO ERROR IN 
‘ 748 3; #7 SKONETSKI 22-APR-1985 16:26:04 “ADDED CODE TO 
749 : #6 SKONETSKI 22-APR-1985 14:22:35 “FIXED BRANCH ERROR IN EMD OF PASS ROUTINE" 
750 ; #5 SKONETSKI 22-APR-1985 08:28:54 “FIXED BUG CAN OCTASC MACRO CALL WAS WRONG) AND ADDED A 
— OF PASS 
751 3; @& SKONETSKI 18-APR-1985 14:20:15 “ADDED SOFTWARE SWITCH REG SUPPCRT. BUT UNTESTED" 
752 3; #3 SVONETSKI 12-APR-1985 10:34:52 "FIXED PROBLEMS WITH SPURTOUS CR/LFS- 
oe ane 3; #2 SKONETSKI 11-APR-1985 16:00:24 “ADDED MACRO FROM SYSMAC.S?M THAT SIZES FOR SOFTWARE SUI 


-— 





#1 SKONETSKI 11-APR-1985 15:49:05 “LIBRARY FOR DHil DIAGNOSTICS” 


a csc 
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LIST 
~NLIST MC,.MD,CND 
. HEADER +/1972, 1985/,*t/DH11 AUTO-ECHO TEST/, *t/CZDHH-CO/ 


sSTARTING PROCEDURE 

sLOAD PROGRAM 

sLOAD ADDRESS 000200 

sPRESS START 

sPROGRAM WILL TYPE DHi1 AUTO-ECHO TEST 

sPROGRAM WILL TYPE “VECTOR ADDRESS-” 

sTYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
sFOR THE DH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
sPROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-” 

TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 

sFOR THE DH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
sPROGRAM WILL TYPE “R” TO INDICATE THAT TESTING HAS STARTED 
sAT THE END OF A PASS, PROGRAM WILL TYPE “ CZDHH-CO ” 

sAND THEN RESUM TESTING 


-TITLE CZDHr-CO 

-ENABLE ABS 

-NLIST MC.MD,CND 

-LIST ME 

- SYMBOLS 

sSWITCH REGISTER OPTIONS 
SW15=100000 

SW14=40000 

SW13=20000 3*1., INHIBIT ERROR TYPEOUT 
3*1, INHIBIT ITERATIONS 
3*1,ESCAPE TO NEXT TEST ON ERROR 
SWO9=1000 si, WITH CURRENT DATA 
SWO8=400 











SEQ 17 


w 


Lh 
ww 
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MACRO VO4.00 27-JUN-85 15:04:20 PAGE 16 


177776. 


015644 





sREGISTER DEFINITIONS 


RO=s0 sGENERAL REGISTER 
Ri=s1 s;GENERAL REGISTER 
R2=s2 sGENERAL REGISTER 
R3=83 sGENERAL REGISTER 
R4=84 sGENERAL REGISTER 
RS=s5 sGENERAL REGISTER 
SP =86 sPROCESSOR STACK POINTER 
PC=87 sPROGRAM COUNTER 


sLOCATION EQUIVALENCIES 


3SWR=177570 sCONSOLE SWITCH REGISTER 
;LIGHTS#177570 eee 11/45 DISPLAY REGISTER 
PS*177776 SOR STATUS WORD 
STACK=ENDCOD+200. sSTART OF PROCESSOR STACK 


sINSTRUCTION DEFINITIONS 


PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
POP1SP=5726 ; 





SEQ 18 
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000000 
000200 


-ENDR 





;TRAPCATCAER FOR ILLEGAL INTERRUPTS 
“REPT 200 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAU 

sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


0 
3 TED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
TED TRAP 








oOo 

- 

ae 
: 





3 
ono 
82 
Af 
3 







g2ae8 
asnek 





2 
Py 
Bz 
: 
ae 
: 





: 
: 


ro 
: 
- 
: 


i?) 
z ) 
s 
o © 
—_ «fj 
SRaRER 
Tre 


sUNEXPECTED TRAP TO 


: 
: 
: 


L 





SAE ONE IE OE PLD LE ODEO OE A 


SEQ 19 
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000000 
000152 








sEXAMINE STACK TO FIND CAUSE 


ND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP ye: THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 
TACK TO FIND CAUSE 


XA FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
: EXAMINE dy TO FI AUSE 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND C 
; 


sUNEXPECTED TR 
sEXAMINE STACK TO FIND C 





i 








SEQ 21 
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000330 0003352 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000332 000000 HALT sEXAMINE STACK TO FIND CAU 
000334 000336 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000336 HALT sEXAMINE STACK TO F CAU 
000340 000342 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000342 000000 HALT sEXAMINE STACK TO FI 
000344 000346 .+2 sUNEXPECTED TRAP TO THIS LOCATION 
000346 000000 HALT sEXAMINE STACK TO FI 
000350 000352 + sUNEXPECTED TRAP % THIS LOCATION 
000352 HALT sE STACK TO F 
000354 000356 + sUNEXPECTED TRAP 7" THIS LOCATION 
000356 HALT sEXAMINE STACK TO F 
000360 000362 .+2 sUNEXPECTED TRAP TO THIS LOCATION 
000362 000000 HALT sEXAMI Uae - 
000364 000366 +2 s UNEXPECTED a Fy. THIS LOCATION 
000366 HALT sEXAMI STACK TO F 
000370 000372 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000372 HALT sEXAMINE STACK By 
000374 000376 +2 s UNEXPECTED TO THIS LOCATION 
000376 000000 HALT s EXAMINE STACK ‘To FIND CAUSE 
600400 000402 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000402 000000 HALT 7; EXAMINE STACK TO 
000404 000406 +2 sUNEXPECTED TRAP TO THIS LOCATION 
060406 HALT FIND CAUSE 
000410 000412 +2 
000412 HALT 
000414 000416 +2 
000416 HALT 
000422 +2 
000422 000000 HALT 
000424 000426 +2 
000426 HALT 
000430 000432 +2 
000432 HALT 
900434 000436 +2 
000436 000000 HALT 
000440 000442 +2 
000442 000000 HALT 
000444 000446 +2 
000446 000000 HALT 
000450 000452 +2 
000452 HALT 
000454 000456 +2 
000456 000000 HALT 
000460 000462 +2 
000462 000000 HALT 
000464 000466 -¢2 
000466 900000 rALT 
000470 000472 +2 
000472 HALT 
000474 000476 +2 
000476 000000 HALT : 
000500 000502 +2 sUNEXPECTED TRAP T 
900502 000000 HALT sEXAMINE STACK TO FIND C 
000504 000506 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000506 000000 HALT ; EXAMINE STACK TO FIND CAUSE 
000510 000512 +2 ;UNEXPECTED TRAP TO THIS LOCATION 


- 
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sEXAMINE STACK TO FIND CAUSE 


IND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 


AP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
TED TRAP 


CTED TR 
sEXAMINE STACK TO FIND 
TED TRAP T 


TO FIND C 
s;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 











SEQ 23 


- 
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000674 000676 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000676 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000700 000702 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000702 000000 HALT sEXAMINE STACK TO FIND CAU 
000704 000706 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000706 000000 HALT sEXAMINE STACK TO FIND CAU 
000710 000712 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000712 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000714 000716 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000716 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000720 000722 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000722 000000 HALT sEXAMINE STACK TO FIND CAU 
000724 000726 +2 sUNEXPECTED TRAP . THIS LOCATION 
000726 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000730 000732 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000732 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000734 000736 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000736 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000740 000742 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000742 900000 HALT sEXAMINE STACK TO FIND CAUSE 
000744 000746 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000746 HALT sEXAMINE STACK TO FIND CAUSE 
000750 000752 +2 sUNEXPECTED TRAP e: THIS LOCATION 
000752 HALT sEXAMINE STACK TO FIND CAUSE 
000754 000756 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000756 HALT sEXAMINE STACK TO F CAUSE 
000760 000762 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000762 000000 HALT sEXAMINE STACK TO 
000764 000766 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000766 HALT sEXAMINE STACK TO F 
000770 000772 -*2 sUNEXPECTED TRAP TO THIS LOCATION 
000772 HALT sEXAMINE STACK TO FIND CAUSE 
000774 000776 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000776 HALT sEXAMINE STACK TO FIND CAUSE 

1 001000 .SETVEC 


CZ0HH-CO 


- 


000204 


MACRO V04.00 


060200 
000167 000600 


-=200 


. TRPDEF 


TRPDEF 
TRPDEF 
TRPDEF 
TRPDEF 
TRPDEF 
TRPDEF 


TRPOEF 


-ENDM 








SEQ 24 


27-JUN-85 13:04:20 PAGE 18 


sSTANDARD INTERRUPT VECTORS 
JMP START ;G0 TO START OF PROGRAM 


sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND STARTING 
sAT LOCATION “TRPTAB“ 


SCOPE,*t/SCOPE LOOP AND ITERATION HANDLER/ 

tl RAP + ;SCOPE LOOP AND ITERATION HANDLER 
sV¥e 

TYPE ,.t/TELETYPE OUTPUT ROUTINE/ 

Maa sTELETYPE OUTPUT ROUTINE 

2Y¥ei 

OCTASC,*/OCTAL TO ASCII CONVERSION/ 


a sgl TRAP +Y sOCTAL TO ASCII CONVERSION 
sVeo 

INSTR, SL — ASCII STRING/ 

INSTR=TRAP +¥ sINPUT ASCII STRING 

sVe 

INSTER,*/STRING INPUT ERROR/ 

— sSTRING INPUT ERROR 

sVYe 


PARAM, oo STRING TO OCTAL, CHECK LIMITS/ 


PARAM*TRAP +Y sCONVERT STRING TO OCTAL, CHECK LIMITS 
siji¢ 
SAVOSP,t/SAVE RO-RS, PC/ 
SAVOSP=TRAP+Y sSAVE RO-RS, PC 
sT¢ 
RESOS, t/RESTORE RO-RS/ 
RESOS*TRAP+¥ sRESTORE RO-RS 
sT¢ 
SCOPE1,*/CHECK FOR FREEZE ON CURRENT DATA/ 
SCOPE1*TRAP+¥ s;CHECK FOR FREEZE ON CURRENT DATA 
sTt¢ 


CODEM1 
MOV DHSSR , DHSLR sSET UP ADDRESS OF SILO 
OHSLR ; STATUS REGISTER HIGH BYTE 


OHRVEC ,3.4,DHSCR,O,177776,7,10,,,1 





SEQ 25 
MACRO VO4.00 27-JUN-85 13:04:20 PAGE 19 


001000 -*1000 
sPROGRAM INITIALIZATION 
sLOCK OUT INTERRUPTS 
sSET UP PROCES 
;SET UP POWER FAIL VECTOR 
sCLEAR PROGRAM FLAGS AND COUNTS 
iTYPE TITLE MESSAGE 
IIF NB <>, sDETERMINE MEMORY SIZE 
LIF NB <>, SSET UP TRACE TRAP RETURN 
177570 SWR -WORD 177570 ; SWITCH DHSCR ADDRESS ; 4 
177570 LIGHTS: .WORD 177570 ; LIGHTS ; 4 
3 4 
012767 000340 176764 START: MOV $340 ,.PS sLOCK OUT INTERRUPTS 
012706 015644 MOV @STACK ,SP ;SET UP PROCESSOR STACK 
012702 MOV 424 ,R2 ; POINT TO VECTOR AREA 3 7 
012722 014510 MOV @PFAIL .CR2)+ sSET UP POWER FAIL TRAP 3; 7 
012722 MOV #340, (R2)+ sSERVICE AT LEVEL 7 3 7 
012722 012350 MOV @ERRORS, CR2)+ sERROR HANDLER 3 7 
012722 MOV #340, (R2)>+ sSERVICE AT LEVEL 7 ga 
012722 012562 MOV STRPSRV, CR2)+ sGENERAL HANDLER —_— SERVICE ; 7 
012712 000340 MOV #340, ( ; SERVICE AT LEVEL ; 8 
005067 012556 CLR ST sCLEAR TEST START FLAG 
005067 012512 CLR Pp sCLEAR PASS COUNT 
005067 012510 CLR 3 ERROR COUNT 
005067 O1 CLR ERRFLG ;CLEAR ERROR FLAG 
005067 012474 CLR ERRFLG sCLEAR LAST ERROR PC 
016746 176702 MOV 4, -CSP) ; PUSH TRAP VECTOR 3; 4 
016746 1767 MOV 6, -CSP) 3; 4 
012767 001122 176670 MOV #13, ; SET UP TRAP VECTOR ; 4 
777 «+177 TST ; TEST SWITCH REGISTER ADDRESS 3 4 
- BR 2 ; IF SUCCESSFUL, LEAVE IT ALONE F 
“ i 
012767 000176 177650 MOV 0176, SUR ; POINT TO SOFT SWITCH DHSCR : 4 
177 Po LIGHTS ; © MEANS WE ARE NOT GOING TO USE —_- 3 4 
: 3 
005726 TST (SP)« 3; CLEAN UP STACK 3 4 
005726 TST CSP )+ 3 4 
012667 176642 MOV CSP)-, 6 3 4 
012667 176634 MOV (SP)+, 4 3 4 
104401 014660 TYPE eMTITLE sTYPE TITLE MESSAGE 
005767 012452 TST INIFLG sCHECK INITIALIZATION FLAG 
IF NB <DHRVEC> 
001001 BNE VEC sIF NOT 0, CHECK SWITCHES 
IFF sFOR REINITIALIZATION 
BNE BEGIN sIF NOT 0, START TEST 
~ENDC 
IF NB «> 
ZE: CLR RO 
MOV 62%, 004 
is: TST CRO)> ; 9 
BR is 
23: MOV RO ,HCORE 
SUB @2 ,HCORE XISTANT MEMORY : 9 
MOV #6 , 804 sRESTORE TRAPCATCHER 











001162 
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016767 
005267 


005767 
001002 
005167 


000001 177606 


001000 


012270 
0 


-ENDC 
IF NB 
TRACER : 















sIF INITIALIZE FLAG=0 
sGET VECTOR AND CSR ADDRESS 


sIF SWOO*1, GET NEW VECTOR 
AND CSR 


sRESTORE TRAPCATCHER 
sIN FLOATING VECTOR AREA 


sINPUT ADDRESS OF DEVICE VECTOR 
CTOR ADORE 





sHIGH LIMIT 
sLOCATIONS re BE FILLED 
a 


MASK 
SINPUT ADDRESS OF DEVICE CSR 
"CONTROL STER 


SEQ 26 


UP ILLEGAL INSTRUCTION TRAP RETURN 
:D0 11/40, 11/45 INSTRUCTION 
311/40,45 RTT RETURN FROM TRACE TRAP 
31105.10,20 RTI RETURN FROM TRACE TRAP 
RES TRAPCATCHER 


sSET UP TRACE TRAP VECTOR 


a> ® 











—— 
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012767 
012706 
032777 
001410 


104403 
015123 
104405 


000340 176462 BEGIN: MOV 
015644 MOV 


000002 


001400 
012252 


012244 
015117 
012200 


177452 


012222 


BIT 


BEQ 
INSTR 
MTSTPC 


PARAM 
.] 


0340 ,PS 
@STACK ,SP 
—— 





sLOCK OUT INTERRUPTS 

sSET UP PROCESSOR STACK 
sIF SWO1*1 

sGET PC FOR PROGRAM START 
GET PC 


iGE 
sMESSAGE “TEST PC” 
sCONVERT STRING TO OCTAL 


sNORMAL START, TEST 1 
sIF LOOPING, BYPASS TYPEOUT 


sTYPE “R” TO INDICATE START 
sSTART TESTING 





SEQ 27 








ree 8 re EE Tr EE ES Sa ete oe 











SEQ 28 
CZD0HH-CO MACRO VO4.00 27-JUN-85 13:04:20 PAGE 20 
1 -MACRO AUTOL XLINE , XBIT,K 
2 
3 sENABLE AUTO ECHO ON LINE ‘XLINE’ 
4 ; TRANSMIT ONE eye ON LINE ‘XLINE’ 
5 :AT 9600 BAUD, 8 BIT 
6 sRECEIVE AND VERIF Y CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
7 sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
: sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 
10 TS \XN,100,4$ 
il MOV @6I711,@8DHSCR sMASTER CLEAR INTERFACE 
12 i$: JSR PC .CLRALL ;CLEAR ALL BYTE COUNT AN 
13 ;8US ADDRESS REGISTERS 
14 MOV @' XLINE' ,@DHSCR sSELECT LINE ‘ XLINE’ 
15 MOV @-1,@0HBC sSET BYTE COUNT Zs 1 
16 MOV @TWRD' K' ,@DHBA sSET UP ADDRESS > Smee TO BE TRANSMITTED 
1? MOV #100 ,RO ;SET UP TO RECEIVE 64 CHARACTERS 
18 CLR Ri OF CHARACTERS 
19 MOV #133503, GDHLPR 
20 
21 
22 MOV @' XBIT‘ , @DHBAR 
23 23: TST SOHSCR 
24 BPL 2s 
25 INC Ri 
26 MOV 
27 CMP 
28 BEQ 
29 MOV 
30 CLR 
31 MLT 
32 BR 
33 33: DEC 
34 8GT 
35 BMI 
a BIC 3sSHUT OFF AUTO-ECHO 
37 BR sGET 1 MORE CHARACTER 
38 4$: SCOPE sCHECK FOR ITERATIONS. L 
39 -ENDMN AUTOL 





-— 











SEQ 29 
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: -MACRO AUTO2 #£=XLINE,XBIT,K 
3 ; TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE ‘kK’ 
4 ;TRANSMIT 1 CHARACTER ON LINE ‘K’ WITH AUTO ECHO ENABLED 
5 ; TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
6 :CHARACTER LENGTH IS 8 BITS 
: sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 
9 TS \XN,10,58 
10 MOV @6IT11,@DHSCR sMASTER CLEAR INTERFACE 
il JSR PC .SETALL ;SET UP ALL LINES TO TRANSMIT 
12 3400 COCTAL) CHARACTERS 
13 MOV @'K’ ,@DHSCR sSELECT LINE XLINE FOR TESTING 
14 MOV @TWRD‘'K' ,@DHBA ;CHARACTER TO BE TRANSMITTED 
i5 3;0N LINE XLINE IN AUTO ECHO MODE 
16 MOV @-1.@DHBC sTRANSMIT ONLY 1 CHARACT 
i? MOV @133503, @DHLPR ;SET AUTO ECHO FOR LINE 
18 BIC @'XBIT’ .LINACT ;CLEAR LINE ACTIVE BIT 
ig MOV @-1, GDHBAR sSET BAR BITS FOR ALL LINES 
CLR RO sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
i$: MOV GOHNRC ,R4 sGET A CHARACTER FROM SILO 
is sIF NOT VALID DATA, TRY AGAIN 
R4 RS sEXTRACT LINE NUMBER FORM CHARACTER 
#177760,R3 sCLEAR STATUS BITS 
_ 
R3,o°K" sIF LINE NUMBER IS XLINE 
sCHECK FOR CORRECT ECHOED 
sIF WOT LINE XLINE. CHECK DATA 
s(RS)-EXPECTED NON ECHOED DATA 
3NON ECHOED DATA ERROR 
23: sUPDATE EXPECTED RECEIVED DATA 
38: 


4%: 


SB SSSURAEARSSSSIRASUNESVSVRGRANLS 


—— 








s(RS EXPECTED ECHOED DATA 
sECHOED DATA ERROR 
sCHECK FOR ITERATIONS, LOOP 





ge SRGx*RZRERSERG SASS IEGRERESS 


é 














SEQ 30 
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: MACRO SSETALL 
3 :SET BYTE COUNT FOR ALL LINES TO 400 
4 :;SET BUS ADDRESS FOR ALL LINES TO TBUF 
5 :;CLEAR EXPECTED CHARACTER BUFFERS 
: sSET LINE ACTIVE BITS FOR ALL LINES 
8 SETALL: MOV #20,R0 sSET UP TO LOAD 16 
9 sBYTE COUNT AND BUS ADDRESS 
10 sMEMORY LOCATIONS 
11 CLR Ri sSET UP TO GENERATE EXPECTED 
12 sRECEIVED CHARACTER BUFFER 
13 MOV sWILL BE HIGH BYTE 
14 sOF EXPECTED RECEIVED CHARACTER 
15 sOFFSET FOR HIGH BYTE 
16 i$: sLOAD BUS ADDRESS 
17 sLOAD BYTE COUNT 
. sSET LINE SPEED TO 4800 BAUD 
20 sRECEIVED CHARACTER 
21 R2 ,RBUF CRS) sLOAD HIGH BYTE 
@OHSCR sADVANCE LINE NUMBER TO NEXT LINE 





one 


sUPDATE POINTERS 


#2,R3 
ri sCONTINUVE IF NOT DONE 


MOV 

MOV 

MOV 

MOV 

CLRB 

MOVE 

INC 

INC R2 

ADD @2,R1 

ADO 

Deu 
@-1,LINACT sSET ACTIVE FLAGS FOR ALi LINES 

RTS PC RETURN TO CALLING ROUTINE 

SSETALL 

CCLRALL 


AVS SSSIRGSARESYSVRGS 





CZDHH-CO 


-— 


WNDU S why 


001400 





000020 








EDI LIE SS PTET OOO LC IR ET LOE OO IE EEDA RR A Tan ERO 










SEQ 31 
MACRO VO4.00 27-JUN-85 13:04:20 PAGE 23 
XLINE=LINE 
XBIT=BITX 
K=KX 
LINE =0 
BITX=1 
KX=0 
REPT 20 
AUTOL \LINE, \BITX, \KX 
wNLI 
LINE =LINE+1 
BITX=BITX+BITX 
KX*KXel 
-LIST 
-ENOR 
AUTOL \LINE,\BITX, \KX 
sENABLE AUTO ECHO GN LINE 0 
; TRANSMIT ONE CHARACTER ON LINE 0 
sAT 9600 BAUD, 8 BITS. 
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
sEXS<TLY ONE MORE CHARACTER SHOULD BE RECEIVED. 
TS \XN,100,4$ 
176370 Ti: MOV #340 PS sDISABLE ALL INTERRUPTS 
012172 MOV #100, ICOUNT ;SET UP FOR 100 ITERATIONS 
012160 ae #43 ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
3 <> 
MOV sSET UP TO LOOP WITH DATA 3; 3 
XN=XNeol 
012110 MOV 
is: JSR 
012076 MOV 
012100 MOV 
012070 MOV 
MoV 
CLR 
012052 mov 
012052 MOV sSET BAR BIT FOR LINE 0 
23: TsT8 WAIT FOR CHARACTER TO 
BPL 
INC 
MOV 
CMP 
BEQ 
MOV 
CLR 
HLT 
ENT .] 
BR 4g 
3%: DEC RO 
BGT 2$ 
BMI 4s 








-— 








NE LE ENE LEE LILLE ONL LEED LLL EE LEERY LBS TEE IS TLC AI a ee 
SEQ 32 
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042777 
S2 


012767 
012767 
012767 


100000 011772 


176212 
012014 
012002 
011732 


011720 
011722 
011712 


011674 


011674 


011614 








BIC #100009, @DHLPR sSHUT OFF AUTO-ECHO 
BR 2$ sGET 1 MORE CHARACTER 
43: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX*BITX+BITX 
KX=*KXel 
AUTO1L \LINE, \8ITX, \KX 
sENABLE AUTO ECHO ON LINE 1 
; TRANSMIT ONE CHARACTER ON LINE 1 
sAT 9600 BAUD, 8 BIT 
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
;AFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
SEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 
TS \XN,100,48 
T2: MOV 0340 PS sDISABLE ALL INTERRUPTS 
MOV @100.,ICOUNT sSET UP FOR 100 ITERATIONS 
i MOV 04% , ESCAPE SSET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV sSET UP TO LOOP WITH DATA 
.ENDC 
XN=XNe1 
MOV 
is: JSR 
MOV 
MoV 
MOV 
MOV 
CLR 
MOV 
MOV 
2s: TSTs 
BPL 
Inc 
MOV 
chp 
BE 
MOV 
CLR 
MLT 
EMT 
BR 
3s: CEC 
BGT 
BMI 
BIC 
BR 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX=*KXe 1 
AUTOL \LINE, \BITX, \KX 


CZ0HH-CO 


002112 








SEQ 33 
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012767 
012767 
012767 


000100 
002110 


004000 
011410 


000002 
177777 
014314 
000100 


133503 


100000 


011516 


011516 


011436 





sENABLE AUTO ECHO ON LINE 2 

TRANSMIT ONE ie ON LINE 2 

sAT 9600 BAUD, 8 

sRECEIVE AND VERIFY. CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 


TS \XN,100,48 
T3: 








MOV #340 ,.PS sDISABLE ALL INTERRUPTS 
MOV 6100 , ICOUNT ;SET UP FOR 100 ITERATIONS 
- MOV 04% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
; <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel1 
MOV #8IT11.8DHSCR sMASTER CLEAR INTERFACE 
is: JSR PC .CLRALL ;CLEAR ALL BYTE COUNT AN 
sBUS ADDRESS REGISTERS 
MOV sSELECT LINE 2 
MOV sSET BYTE COUNT TO 1 
MOV sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
ny Hy SSET UP TO RECEIVE 64 CHARACTERS 
MOV #133503, SDHLPR UP SPEED FOR 9600 BAUD 
O ECHO ENABLED ON LINE 2 
@4 , BDHBAR 3;SET BAR BIT FOR LINE 2 
23: SOHSCR sWAIT FOR CHARACTER TO 












3 RECEIVED 
oe RECEIVED CHARACTER COUNT 
; 
sIS CHARACTER CORRECT 
3(RS )-EXPECTED 








- 8 BITS. 
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
sAFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED 


TS \XN,100,48 











002312 
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012767 
012767 
012767 


000005 
012777 
004767 


012777 
012777 


011314 
012064 


012056 
011300 


100000 


000100 
002444 


011260 


011220 


T4: 


IF NB 
.ENOC 


XN=XNel 


i$: 


23: 






#340 ,PS 
#100, ICOUNT 
04%, ESCAPE 
@,FREEZ1 


#6IT11,8D0HSCR 
PC ,CLRALL 


10, GOHBAR 
SOHSCR 


#61711 ,@DHSCR 


SEQ 34 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 100 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 
sMASTER CLEAR INTERFACE 


sCLEAR ALL BYTE COUNT AN 
sBUS we a 


1 
i OF CHARACTER TO BE TRANSMITTED 
sSET UP TO RECEIVE 64 CHARACTERS 

+o OF CHARACTERS RECEI 


sAUTO ECHO ENABLED ON 
sSET BAR BIT FOR LINE 3 
sWAIT FOR CHARACTER TO 
sBE RECEIVED 

 s RECEIVED CHARACTER COUNT 








sDISABLE ALL INTERRUPTS 

3;SET UP FOR 100 ITERATIONS 

3SET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP WITH DATA : 3 


sMASTER CLEAR INTERFACE 
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004767 


012777 
012777 
012777 
012700 
005001 
012777 


012777 
105777 


011054 


000004 
177777 
014320 
000100 
133503 


000020 
011144 
011136 
011710 


011702 
011122 


004000 
010676 


000005 
177777 
014322 
000100 


133503 


011206 
011210 
011206 


011162 


011162 


011042 


011030 
011032 
011022 


011004 


1$; 


JSR 








PC ,CLRALL 


#4 ,,8DHSCR 
@-1, @OHBC 
@TWRD4 , BDHBA 
#100 ,RO 


Ri 
#133503, BDHLPR 








#81711 ,@DHSCR 
PC .CLRALL 





oi eons 
@TURDS  GDHBA 


#100 ,RO 
#1335503, GDHLPR 








SEQ 35 


sCLEAR ALL BYTE COUNT AN 
sBUS ADDRESS REGISTERS 
sSELECT LINE 4 

sSET BYTE COUNT TO 1 
sSET UP ADDRESS OF CHARACTER TO GE TRANSMITTED 
sSET UP TO RECEIVE 64 CHARACTERS 

; OF CHARACTERS RECEIVED 

sSET UP SPEED FOR 9600 BAUD 

18 BITS PER CHARACTER, 
sAUTO ECHO ENABLED ON 


sUPDATE RECEIVED CHARACTER COUNT 

sREAD CHARACTER 

sIS CHARACTER CORRECT 

sC(RS)*EXPECTED CHARACTER 
ECHO 







ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP MITH DATA 















TN SAT 


SEQ 36 
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012777 
105777 


000040 
010766 


010760 
011534 


011526 
010744 


100000 


011004 


010724 


010734 


38 BITS PER CHARACTER, 
















sAUTO ECHO ENABLED ON LINE 5 
V #40, BDHBAR ;SET BAR BIT FOR LINE 5S 
TSTB SOHSCR sWAIT FOR CHARACTER TO 
BPL 2$ 3BE RECEIVED 
INC Ri sUPDATE RECEIVED CHARACTER COUNT 
MOV @DHNRC ,R4 sREAD CHARACTER 
Had aw sIS CHARACTER CORRECT 
MOV TWROS,RS sCRS)*EXPECTED CHARACTER 
CLR @OHL sSHUT OFF AUTO ECHO 
a : sCHARACTER ECHOED INCORRECTLY 
BR 4&$ sRESTART TEST 
38: DEC RO 3IF 64 CHARACTERS HAVE NOT 
ent neat ae 
BIC #100000, SDHLPR sSHUT OFF AUTO-ECHO 
BR 2% sGET 1 MORE 
4$: SCOPE ;CHECK FOR ITERATIONS. LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
KX=*KXei 
AUTOL \LINE, \BITX, \KX 
sENABLE AUTO ECHO ON LINE 6 
TRANSMIT ONE 
TS \XN,100,48 
T?: MOV 
MOV 
MOV 
MOV 
XN=XNel 
MOV 
is: JSR 
MOY sei eorme 
MOV @TWRDS . SDHBA 
MOV #100, 
CLR RL 
MOV 0133503, COHLPR 
MOV 
2s: TST8 
BPL 
Inc 
MOV sREAD 
CMP :IS CHARACTER CORRECT 








003002 





LS SS SN SE A ELLE A CO ENE ILE LIE ATA A LE LEBEL EE CEI JO EL LEG I OO EIRENE CN tt 

















— 
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001406 BEQ 33 
016705 011352 MOV TWROG,R5 ;CRS)J*EXPECTED CHARACTER 
005077 010566 CLR SOHLPR sSHUT OFF AUTO ECHO 
HLT 0 sCHARACTER ECHOED INCORRECTLY 
104000 EMT 0 
000407 BR 4 sRESTART TEST 
005300 3$; DEC RO sIF 64 CHARACTERS HAVE NOT 
003357 BGT 2$ sBEEN RECEIVED, CONTINUE 
100404 BMI 4$ 
042777 100000 010546 BIC #100000. BDHLPR sSHUT OFF AUTO-ECHO 
000752 BR es :GET 1 MORE CHARACTER 
104400 4$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000007 LINE =LINE+1 
000200 BITX=BITX+BITX 
000007 KX=*KXel 
AUTOL \LINE, \BITX, \KX 
sENABLE AUTO ECHO ON LINE 7 
sTRANSMIT ONE CHARACTER ON LINE 7 
sAT 9600 BAUD. 8 BITS. 
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
sAFTER 64 CHARACTERS HAVE GEEN RECEIVED, DISABLE AUTO i 
MORE CHARACTER 
TS \XN,100,48 
012767 000340 174766 T10: MOV 
012767 000100 010570 mov 
012767 003156 010556 MOV 
-IF NB <> 
MOV 
000011 XN=XNei 
012777 010506 MOV 
004767 010342 is: JSR 
012777 000007 010474 ‘MOV 
012777 177777 010676 MOV 
012777 014326 010466 MOV 
012700 000100 MOV 
005001 CLR 
012777 133503 010450 MOV 
012777 010450 MOV 
105777 010432 2s: TST8 
100375 BPL 
005201 InC 
017704 010424 moy 
020467 011204 pA 
016705 011176 MOV 
010410 CLR 
HLT 
104000 EMT 
000407 BR 
005300 3%: DEC 
003357 BGT 











LE SL IT EE ELE LTE ELIOT L LITO LID ILLS LT CLT NE ADELE LO LOE A LOTT LO A CEE ON NEI A I 
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012767 
012767 
012767 


100000 010370 


000340 
000100 
003334 


100000 


010212 





SEQ 38 
BMI 4$ 
BIC #100000, BDHLPR sSHUT OFF AUTO-ECHO 
BR 2% ;GET 1 MORE CHARACTER 
4$: scoPp sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
KX#KXe1 
AUTOL \LINE,\BITX, \KX 
sENABLE AUTO ECHO ON LINE 10 
; TRANSMIT ONE CHARACTER ON LINE 10 
sAT 9600 BAUD, 8 BITS. 
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 
TS \XN,100,4$8 
Til: MOV @340,.PS sDISABLE ALL INTERRUPTS 
MOV #100 , ICOUNT sSET UP FOR 100 ITERATIONS 
oo 04% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
- <> 
MOV @,FREEZ1 sSET UP TO LOOP MITH DATA s 3 
-ENDC 
XN=XNe1 
MOV sMASTER CLEAR INTERFACE 
18: JSR sCLEAR ALL BYTE COUNT AN 
s 
MOV 3 
MOV i 
MOV 3 
MOV Py 
CLR r 
MOV 8 
8 
8 
MOV 8 
2s: TsTs8 ’ 
BPL , 
INC 3 
MOV a 
CHP ry 
BEG 
MOV 
CLR 
HLT 
EMT 
BR 
3%: DEC RO 
BGT pal 
BMI ad 
BIC $100000 , BDHLPR 
BR 2s 
4%: SCOPE 
LINE =_INE+1 
BITX=BITX+BITX 





KX=KXo1 
AUTOL LINE, \BITX, \KX 


CZDHH-CO 


003514 
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012767 


100000 


010114 


010114 


010034 





sENABLE AUTO ECHO ON LINE 11 
wee ON LINE 11 


AND TERS UNTIL 64 WAVE BEEN RECEIVED. 
64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
SHOULD BE RECEIVED. 


sTRANSMIT ONE 
sAT 9600 BAUD, 8 BITS. 
sRECEIVE VERIFY CHARAC 
;AFTER 
sEXACTLY ONE MORE CHARACTER 
TS \XN,100,48 
Tid: MOV 0340 .PS 
MOV #100, ICOUNT 
MOV 04% , ESCAPE 
®,FREEZ1 
-ENDC 
XN*XNel 
@68IT11.@DHSCR 
1%: PC .CLRALL 
#11,@DHSCR 
@-1,@DHBC 
@TWRD11, GDHBA 
_— 
#133503 ,. CDHLPR 


SERSQEPERGEHSE 322828 G3 2 









sDISABLE ALL INTERRUPTS 
sSET UP FOR 100 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA s 3 












sMASTER CLEAR INTERFACE 
sCLEAR ALL BYTE COUNT AN 
sBUS ADDRESS REGISTERS 
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012767 
012767 
012767 


000014 
012777 
004767 


012777 


100000 


174254 
010056 
010044 


007656 


174076 


000100 007700 


007666 


TS \XN,100,48 
Ti3: 




















SEQ 40 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 100 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3; 3 


sMASTER CLEAR INTERFACE 

sCLEAR ALL BYTE COUNT AN 

sBUS ADDRESS REGISTERS 

sSELECT LINE 12 

sSET BYTE COUNT Tu 1 

sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
oN UP TO RECEIVE 64 CHARACTERS 





RECEIVED 
sUPDATE RECEIVED CHARACTER COUNT 
sREAD CHARACTER 
sIS CHARACTER CORRECT 
s(RS)*EXPECTED CHARACTER 
sSHUT OFF AUTO ECHO 
sCHARACTER ECHOED INCORRECTLY 


sRESTART TEST 
sIF 64 CHARACTERS HAVE NOT 
SEEN RECEIVED. CONTINUE 











CHARACTER 
sCHECK FOR ITERATIONS. LOOP 


ITs. 
CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 


DISABLE AUTO ECHO. 
IVEO. 


DISABLE ALL INTERRUPTS 
sSET UP FOR 100 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


MOV #340 ,PS 
MOV #100, ICOUNT 
MOV 04%, ESCAPE 
IF NB «> 
MOV @, FREEZ1 
~ENDC 
XN=XNel 
MOV @61711,@DHSCR 
i$: JSR »CLRALL 
MOV #12, @DHSCR 
MOV @-1,@OHBC 
MOV @TWRD12, GOHBA 
MOV #100 ,RO 
CLR Ri 
MOV #133503, SDHLPR 
Vv 
2s: TSTs8 
BPL 
INC 
MOV 
CMP 
BEQ 
MOV 
CLR 
HLT 
EMT 0 
BR 4$ 
38: DEC RO 
BGT 2s 
BMI &Ss 
BIC #100000, EDHLPR 
BR 2s 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX=KXeol 
AUTOL LINE, \GITX, KX 
sENABLE AUTO ECHO ON LINE 13 
s TRANSMIT ONE ee ON LINE 13 
SAT 9600 ee 
; Nw VERIFY 
sAFTER 64 CHARACTERS HAVE BEEN 
SEXACTLY ONE MORE CHARACTER SHOULD BE RECE 
TS \XN,100,48 
T14; MOV 0340 ,PS 
MOV #100 ,.ICOUNT 
MOV o43, 
IF NB <> 
MOV ®, FREEZi 


sSET UP TO LOOP WITH DATA 7 3 














SEQ 41 
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012777 
004767 


012777 


012777 


012777 
105777 


004000 
007452 


000013 
17777? 
014336 
000100 


133503 
004000 
007542 
007534 


010324 


010316 
007520 


100000 


007616 


007500 


173720 
007522 
007510 


MOV @6IT11,@0HSCR sMASTER CLEAR INTERFACE 
1$: JSR PC ,CLRALL ;CLEAR ALL BYTE COUNT AN 
sBUS ADDRESS REGISTERS 
MOV #13, @0HSCR sSELECT LINE 13 
MOV @-1, @0HBC sSET BYTE COUNT TO 1 
MOV @TWRD13,@OHBA sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV #100 ,,RO sSET UP TO RECEIVE 64 CHARACTERS 
CLR Ri sCOUNT OF CHARACTERS RECEIVED 
MOV #133503, SDHLPR SSET UP SPEED FOR 9600 BAUD 
38 BITS PER CHARACTER, 
sAUTO ECHO ENABLED ON LINE 13 
MOV @4000 , SDHBAR ;SET BAR BIT FOR LINE 13 
2s: TST8 SOHSCR sWAIT FOR CHARACTER TO 
BPL 2s ;BE RECEIVED 
INC Ri sUPDATE RECEIVED CHARACTER COUNT 
MOV @CHNRC ,R4 sREAD CHARACTER 
Hf -- [aaa ‘1S CHARACTER CORRECT 
MOV TWRD1I3 RS sCRS)“EXPECTED CHARACTER 
CLR SOHL sSHUT OFF AUTO ECHO 
a : sCHARACTER ECHOED INCORRECTLY 
BR 4t sRESTART TEST 
38: DEC RO sIF 64 CHARACTERS HAVE NOT 
a ¢ sBEEN RECEIVED, CONTINUE 
BIC #100000 , BOHLPR sSHUT OFF AUTO-ECHO 
BR 23 ;GET 1 MORE CHARACTER 
43: sCHECK FOR ITERATIONS, LOOP 
LINE =LINE +1 
BITX=BITX+BITX 
KX=KXel 
AUTOL \LINE.\BITX, \Kx 


sENABLE AUTO ECHO ON LINE 14 

tees ON LINE 14 

sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
sAFTER 64 CHARACTERS HAVE BEEN bertean AUTO ECHO. 
sEXACTLY ONE MORE CHARACTER SHOULD BE 


TS \XN.100.48 


TiS: MOV 340 PS sDISABLE ALL INTERRUPTS 





MOV #100, ICOUNT sSET UP FOR 100 ITERATIONS 
— MOV 04% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> | 
MOV #,FREEZ1 sSET UP TO LOOP WITH DATA : 3 
-ENDC 
XN=XNe1 
MOV #61111, Q0HSCR sMASTER CLEAR INTERFACE 
18: JSR PC .CLRALL sCLEAR ALL BYTE COUNT AN 
sBUS ADDRESS REGISTERS 
MOV sSELECT LINE 14 
MOV sSET BYTE COUNT TO 1 
MOV 3SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV sSET UP TO RECEIVE 64 CHARACTERS 





CLR sCOUNT OF CHARACTERS RECEIVED 
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012777 


012777 
105777 
003 


133503 


010000 
007364 


007356 
010150 
010142 
007342 


100000 


004000 
007116 
000015 


177777 


014342 
000100 


133503 


020000 
007206 


007200 


007402 


007402 


007322 


173542 
007344 
007332 


MOV #133503, BOHLPR 


MOV —_—e 


23: TSTB 8OHSC 
BPL es 
INC Ri 


MOV SOHNRC .R4 
CMP W—_— 


BEQ 
MOV TWRD14 RS 
CLR SDHL PR 
HLT 0 
EMT 0 
BR 43 
3$: DEC RO 
BGT 2s 
BMI 43 
BIc #100000, GDHLPR 
BR 2s 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX=KXel 
AUTOL \LINE,\BITX, \KX 


sENABLE AUTO ECHO ON LINE 15 
ae ON LINE 15 


AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RE 
TERS HAVE BEEN i) 


ee OD” 88 aes a 


heed EE EEE 


sSET UP SPEED FOR 9600 BAUD 

36 BITS PER CHARACTER, 

sAUTO ECHO ENABLED ON LINE 14 
sSET BAR BIT FOR LINE 14 

sWAIT FOR CHARACTER TO 

sBE RECEIVED 

sUPDATE RECEIVED CHARACTER COUNT 
sREAD CHARACTER 

sIS CHARACTER CORRECT 


s(RS)=EXPECTED CHARACTER 
sSHUT OFF AUTO ECHO 
sCHARACTER ECHOED INCORRECTLY 


sRESTART TEST 
sIF 64 CHARACTERS HAVE NOT 
{BEEN RECEIVED, CONTINUE 


sSHUT OFF AUTO-ECHO 


sGET 1 MORE CHARACTER 
sCHECK FOR ITERATIONS, LOOP 


CEIVED. 
ISABLE AUTO ECHO. 


64 CHARAC RECEIVED, 
SEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 








sTRANSMIT ONE 

sAT 9600 BAUD, 8 BITS. 

sRECEIVE 

sAFTER 
TS \XPR.100,48 
Ti6: MOV #340 ,PS 

MOV #100 , ICOUNT 

MOV $ ESCAPE 
If NB <> 

MOV ®,FREEZ1 
-ENDC 
XN=XNel 

MOV #61111 ,@8DHSCR 
i$: JSR PC .CLRALL 

MOV #15, @DHSCR 

MOV @-1, @DHBC 

MOV @TWURD1IS. GDHBA 

MOV #100,R0 

CLR 

MOV #133503, SDHLPR 

MOV #20000 , BDHBAR 
2s: TSTB @DHSCR 

BPL 23 

Ri 
MOV SDHNRC .R4 





sDISABLE ALL INTERRUPTS 

sSET UP FOR 100 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP WITH DATA 





IVED 
sUPDATE RECEIVED CHARACTER COUNT 
sREAD CHARACTER 


a 


SEQ 42 


3 3 








SEQ 43 
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004342 020467 007774 CMP R4,TWRO1S IS CHARACTER CORRECT 
004346 001406 BEQ 3$ 
004350 016705 007766 MOV TWRO1S RS s(RS)*EXPECTED CHARACTER 
004354 005077 007164 CLR O@OHLPR sSHUT OFF AUTO ECHO 
004360 HLT sCHARACTER ECHOED INCORRECTLY 
004360 104000 EMT 0 
004362 000407 BR as sRESTART TEST 
004364 005300 3$: DEC RO sIF 64 CHARACTERS HAVE NOT 
004366 003357 BGT 2$ sBEEN RECEIVED, CONTINUE 
004370 100404 BMI 43 
004372 042777 100000 007144 BIC #100000, @DHLPR sSHUT OFF AUTO-ECHO 
004400 000752 2$ sGET 1 MORE CHARACTER 
004402 104400 4$: sCHECK FOR ITERATIONS, LOOP 
000016 LINE =LINE +1 
040000 BITX=BITX+BITX 
000016 KX=KXe1 
004404 AUTOL \LINE,\BITX, \KX 
sENABLE AUTO ECHO ON LINE 16 
s TRANSMIT ONE CHARACTER ON LINE 16 
SAT 9600 BAUD, 8 BITS. 
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
SAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 
004404 TS \XN,100,48 
004404 012767 000340 173364 T1?: MOV #340,PS sDISABLE ALL INTERRUPTS 
004412 012767 000100 907166 MOV #100, ICOUNT sSET UP FOR 100 ITERATIONS 
004420 012767 004560 007154 — MOV : sSET UP TO ESCAPE TO NEXT TEST 
<> 
one #,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
000020 XN=XNel 
004426 012777 004000 007104 MOV 
004434 004767 006740 i$: JSR 
004440 012777 000016 007072 MOV 
004446 012777 177777 007074 MOV 
004454 012777 014344 007064 MOV 
004462 012700 000100 MOV 
004466 005001 CLR 
004470 012777 133503 007046 MOV 
004476 012777 007046 MOV 
105777 007030 23: TSTB 
004510 100375 SPL 
004512 005201 INC 
004514 017704 007022 MOV 
004520 020467 007620 CMP 
004524 001406 BEQ 
004526 016705 007612 MOV 3(RS)*EXPECTED CHARACTER 
004532 005077 007006 CLR sSHUT OFF AUTO ECHO 
004536 HLT 0 sCHARACTER ECHOED INCORRECTLY 
004536 104000 EMT 0 
004540 000407 BR 43 ey TEST 
005300 34: DEC RO F 64 CHARACTERS HAVE NOT 





SEQ 44 
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003357 


012767 
012767 
012767 


100000 006766 


100000 


006776 


006610 


4$; 


SCOP 
LINE =LINE+1 


oll * sBEEN RECEIVED, CONTINUE 
BIC #100000, @DHLPR sSHUT OFF AUTO-ECHO 


BR 2$ sGET 1 MORE CHARACTER 
sCHECK FOR ITERATIONS, LOOP 


BITX=BITX+BITX 


KX*KXel 
AUTOL 


TS \XN,100,4$ 
MO 


\LINE , \BITX, \KX 


sENABLE AUTO ECHO ON LINE 17 

s TRANSMIT ONE ey ON LINE 17 

sAT 9600 BAUD, 8 BIT 

;RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 









T20: Vv #340,PS ;DISABLE ALL INTERRUPTS 
MOV #100, ICOUNT ;SET UP FOR 100 ITERATIONS 
~— MOV 04% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
F <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNe1 
MOV #61T11,@DHSCR sMASTER CLEAR INTERFACE 
i$: JSR PC .CLRALL sCLEAR ALL BYTE COUNT AN 
sBUS ADDRESS REGISTERS 
MOV sSELECT 17 
MOV sSET BYTE COUNT TO i 
MOV sSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
MOV sSET UP TO RECEIVE 64 CHARACTERS 
CLR OF 
MOV 
MOV 
23: TSTB 
BPL 
INC 
MOV 
CMP 
BEQ 
MOV :CRS)-EXPECTED CHARACTER 
CLR ;SHUT OFF AUTO ECHO 
on : sCHARACTER ECHOED INCORRECTLY 
BR as sRESTART TEST 
3$: DEC RO :IF 64 CHARACTERS HAVE NCT 
ar = sBEEN RECEIVED, CONTINUE 
BIC 9100000, SDHLPR sSHUT OFF AUTO-ECHO 
2$ :GET 1 MORE CHARACTER 
4s: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
KX*KX+1 








aa 


004740 
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000020 
000000 
000020 
000000 
000001 
000000 
000020 


012767 
012767 
012767 


173030 


006512 


XLINE=LINE 
XBIT=BI1X 


K=KX 


LINE =0 


BITX=1 
KX=0 


REPT 
AUTO2 
-NLIST 


20 
\LINE, \BITX, \KX 


LINE = INE +1 
BITX=BITX+BITX 


KX*#KXe1 


-LIST 
-ENDR 
AUTO2 


\LINE , \BITX, \KX 


TN eT I A tC i it 


SEQ 45 


s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES ge 0 


sTRANSMIT 1 CHARACTER 


ON LINE 0 WITH AUTO ECHO ENABL 


s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
; CHARACTER LENGTH IS 8 BITS 
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 





TS \XN,10,5$% 
Tai: MOV #340 ,PS 
MOV #10, ICOUNT 
Vv #5$ , ESCAPE 
IF NB <> 
MOV @,FREEZ1 
-ENDC 
XN=XNel 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
BIC 
MOV 
CLR 
i$: MOV 
SPL 
MOV 
SWAB 
BIC 
MOV ° 
ASL , 
CMP R390 
BEQ $ 
CMP RBUF CR2) .R4 
BEQ 
MOV RBUF (R2),.R5 
HLT 1 
EMT 
BR 43 
2%: INCB RBUF (R2) 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 








sSET 
sCLEAR LINE ACTIVE BIT 
NUMBER OF RECEIVED CHARACTERS 


CHARACTER FROM SILO 
:IF NOT VALID DATA, TRY AGAIN 
sEXTRACT LINE NUMBER FORM CHARACTER 


;CLEAR STATUS BITS 

sIF LINE NUMBER IS 0 
;CHECK FOR CORRECT ECHOED une Tee 
sIF NOT LINE 0, CHECK DATA 
3(RS)=EXPECTED NON ECHOED DATA 
:NON ECHOED DATA ERROR 


sUPDATE EXPECTED RECEIVED DATA 
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—_— 8 eee ees 


SEQ 46 













001352 BNE i$ sCONTINUE IF NOT DONE 
046267 014450 006516 BIC LINBITCR2),LINACT ;CLEAR ACTIVE BIT 
005767 006512 3$: TST LINACT ;IF ALL LINES ARE DONE 
001344 BNE i$ s;EXIT 
012777 000000 006400 MOV #0 , @DHSCR sSELECT LINE 0 
042777 100000 006376 BIC #100000, 8DHLPR ;CLEAR AUTO ECHO FOR LINE 0 
105777 006406 TSTB 8DHSLR sGET REST OF CHARACTERS 
001333 BNE i$ sAND CHECK 
000407 BR 5$ 
005200 4$: INC sUPDATE ECHOED CHARACTER COUNT 
7 007124 CMP R4, TWRDO ;CHECK ECHOED DATA 
001757 BEQ $ 
016705 007116 MOV TWROO,RS5S ;(RS)=EXPECTED ECHOED DATA 
HLT sECHOED DATA ERROR 
104002 EMT 
104400 5$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000001 LINE =LINE+1 
000002 BITX=BITX+BITX 
000001 KX*KXel 
AUTO2 \LINE,\BITX, \KX 
sTRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 1 
sTRANSMIT 1 CHARACTER ON LINE 1 WITH AUTO ECHO ENABLED 
: TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
;CHARACTER LENGTH iS 8 BITS 
;VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 
TS \XN,10,5$% 
012767 000340 172572 T22: MOV 0340 ,PS s;DISABLE ALL INTERRUPTS 
012767 000010 006374 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
012767 005432 006362 — MOV #53, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
a <> 
—_ MOV @,FREEZ1 3;SET UP TO LOOP WITH DATA 3 3 
000023 XN=XNe1 
012777 006312 MOV #61111 ,8DHSCR sMASTER CLEAR ACE 
004767 006174 JSR PC .SETALL UP ALL TO TRANSMIT 
3400 COCTAL) CHARACTERS 
012777 000001 006300 MOV 41 .,@DHSCR ;SELECT LINE 1 FOR TESTING 
012777 014312 006300 MOV @TWRD1 , SOHBA s;CHARACTER TO BE TRANSMITT 
sON LINE 1 IN AUTO ECHO MODE 
012777 177777 006274 MOV @-1,@DHBC s TRANSMIT ONLY 1 CHARACTER ON LINE 1 
012777 133503 MOV #133503, @DHLPR ;SET AUTO ECHO FOR LINE 1 
042767 006352 BIC @2,LINACT CLEAR LINE ACTIVE BIT 
012777 177777 MOV @-1, GDHBAR ;SET BAR BITS FOR ALL LINES 
005000 CLR RO sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
017704 006236 i$: MOV SDHNRC ,R4 s;GET A CHARACTER FROM SILO 
106375 BPL i$ | :IF NOT VALID DATA, TRY AGAIN 
010403 MOV R4,R3 sEXTRACT LINE NUMBER FORM CHARACTER 
000303 SWAB RS 
042703 177760 BIC #177760,R3 ;CLEAR STATUS BITS 
010302 MOV oR2 
ASL Re 
020327 900001 CMP R3,¢@1 sIF LINE NUMBER IS 1 
001432 BEQ s;CHECK FOR CORRECT tate CHARACTER 
001404 BEQ 2$ 





en 
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016205 


014246 


014246 


000349 
000010 
005670 


000002 
014314 


177760 


006260 


006142 
006140 


MOV RBUF CR2),R5 
HLT i 
EMT 1 
Re 4¢$ 
2$: INCB RBUF CR2) 
BNE i$ 
BIC LINBITCR2) ,.LINACT 
3$: TST LINACT 
BNE 13 
MOV #1 ,8DHSCR 
BIC #100000 , BDHLPR 
TSTB @DHSLR 
BNE i$ 
BR 5$ 
4$: INC RO 
CMP R4, TWROL 
BEQ 3$ 
MOV TWRO1,RS 
HLT 2 
EMT 
5$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX=KXel 
\LINE, \BITX, \KX 
SPEED FOR ALL 
LENGTH IS 8 BIT 
TS \XN,10,58 
T23: PS 
#10, ICOUNT 
#5% , ESCAPE 
-IF NB 
@, FREEZ1 
-ENDC 
XN=XNel 


13: 


SEQ 47 


;(RS)*EXPECTED NON ECHOED DATA 
sNON ECHOED DATA ERROR 


sUPDATE EXPECTED RECEIVED DATA 
sCONTINUVE IF NOT DONE 

sCLEAR ACTIVE BIT 

‘ae LINES ARE DONE 


i 

sSELECT LINE 1 

;CLEAR AUTO ECHO FOR LINE 1 
sGET REST OF CHARACTERS 

sAND CHECK 


sUPDATE ECHOED CHARACTER COUNT 
sCHECK ECHOED DATA 


s(RS)*EXPECTED ECHOED DATA 
sECHOED DATA ERROR 


sCHECK FOR ITERATIONS, LOOP 


sTRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 2 
sTRANSMIT 1 CHARACTER ON LINE 2 WITH AUTO ECHO ENABLED 
TRANSMISSION BAUD 


i 
sCHARACTER L Ss 
{VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 


easgegnaeg 22 g8 8°282 


ise) 
nl 
85 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA : 3 








sGET A CHARACTER FROM 
sIF NOT VALIO DATA, TRY AGAIN 
sEXTRACT LINE NUMBER FORM CHARACTER 


CLEAR STATUS BITS 





SEQ 48 
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005556 006302 ASL R2 
005360 020327 000002 CMP R3,¢2 ;IF LINE NUMBER IS 2 
005564 001432 BEQ 4s sCHECK FOR CORRECT ECHOED CHARACTER 
005566 026204 014246 CMP RBUF CR2),R4 ;IF NOT LINE 2, CHECK DATA 
005572 001404 BEQ $ 
005574 016205 014246 MOV RBUF CR2),.R5 +(R5)=EXPECTED NON ECHOED DATA 
005600 HLT 1 sNON ECHOED DATA ERROR 
005600 104001 EMT 
005602 000423 BR 4% 
005604 105262 014246 2$: INCB RBUF CR2) sUPDATE EXPECTED RECEIVED DATA 
005610 001352 BNE i$ sCONTINUE IF NOT DONE 
005612 046267 014450 006022 BIC LINBITCR2),LINACT sCLEAR ACTIVE BIT 
005620 005767 006016 3$: TST LINACT sIF ALL LINES ARE DONE 
005624 001344 ENE 3 sEXIT 
005626 012777 000002 005704 MOV #2 ,,8DHSCR sSELECT LINE 2 
005634 042777 100000 005702 BIC #100000, SDHLPR sCLEAR AUTO ECHO FOR LINE 2 
005642 105777 005712 TSTB SOHSLR sGET REST OF CHARACTERS 
005646 001333 BNE i$ sAND CHECK 
50 000407 BR 5$ 
005652 005200 4$: INC sUPDATE ECHOED CHARACTER COUNT 
005654 020467 006434 CMP R4, TWRD2 sCHECK ECHOED DATA 
005660 001757 BEQ 3$ 
005662 016705 006426 MOV TWRO2, RS sCRS)*EXPECTED ECHOED DATA 
0C5666 HLT 2 sECHOED DATA ERROR 
005666 104002 EMT 
005670 104400 S$: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
000010 BITX=BITX+BITX 
000003 KX*KXe1 
005672 \LINE, \WBITX, \KX 
s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 3 
sTRANSMIT 1 CHARACTER ON LINE 3 WITH AUTO ECHO ENABLED 
: LINES IS 9600 BAUD 
sCHARACTER LENGTH IS 8 BITS 
;VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 
005672 TS \XN,10,5$ 
005672 012767 000340 172076 T24: MOV sDISABLE ALL INTERRUPTS 
005700 012767 9000010 005700 MOV sSET UP FOR 10 ITERATIONS 
005706 012767 006126 005666 —_ MOV 3SET UP TO ESCAPE TO NEXT TEST 
‘ <> 
MOV sSET UP TO LOOP WITH DATA 
-ENDC 
000025 XN=XNe1 
005714 012777 004000 005616 MOV 
005722 004767 005500 JSR 
005726 012777 005604 MOV 
005734 012777 014316 005604 HOV 
005742 012777 177777 065600 MOV CHARACTER ON LINE $ 
005750 012777 133503 MOV 3 
005756 042767 000010 005656 sic BIT 
005764 ©12777 177777 005560 MOY :SET BAR BITS FOR ALL LINES 
005772 005000 CLR sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
005774 017704 005542 i$: MOV {GET A CHARACTER FROM SILO 








SEQ 49 
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006000 100375 BPL i$ ;IF NOT VALID DATA, TRY AGAIN 
010403 MOV R4,R3 ;EXTRACT LINE NUMBER FORM CHARACTER 
006004 000303 SWAB RS 
006006 042703 177760 BIC #177760,R3 ;CLEAR STATUS BITS 
006012 010302 MOV R3,R2 
006014 006302 ASL R2 
006016 020327 000003 CMP R3,@3 sIF LINE NUMBER IS 3 
006022 001432 BEQ ;CHECK FOR CORRECT ECHOED CHARACTER 
006024 026204 014246 CMP RBUF CR2) ,R4 ‘IF NOT LINE 3, CHECK DATA 
006030 001404 BEQ 23 
006032 016205 014246 MOV RBUF CR2) RS 3(RS)*EXPECTED NON ECHOED DATA 
006036 HLT i sNON ECHOED DATA ERROR 
104001 EMT 1 
006040 000423 ER 4$ 
006042 105262 014246 2%: INCB RBUF CR2) sUPDATE EXPECTED RECEIVED DATA 
006046 001352 BNE sCONTINVE IF NOT DONE 
006050 046267 014450 005564 BIC LINBITCR2),LINACT sCLEAR ACTIVE BIT 
LINACT sIF ALL LINES ARE DONE 

sEXIT 

sSELECT LINE 3 

SCLEAR AUTO ECHO FOR LINE 3 

sGET REST OF CHARACTERS 

sAND CHECK 


sUPDATE ECHOED CHARACTER COUNT 
sCHECK ECHOED DATA 


s(RS)*EXPECTED ECHOED DATA 
sECHOED DATA ERRCR 


s TRANSMIT ONLY 1 CHARACTER ON LINE 4 





a 


006410 
006416 
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012777 


133503 
000020 
177777 
005304 


177760 


005744 
005736 


005330 
005420 
005322 


005210 


171402 
005204 
005172 


005122 










1$: 


#1335503, GDHLPR 


#20,LINACT 


@-1,@D0H8 
RO 
SOHNRC, 
i$ 


R4 RS 
R3 


AR 
R4 


0177760,R3 
R3,R2 


R2 
R304 


43 
thirst 
 thaaihiaes 


as 
RBUF CR2) 





LINBITCR2),LINACT 
LINACT 








SEQ 50 


T AUTO ECHO FOR LINE 4 


sSE 
;CLEAR LINE ACTIVE BIT 


sSET BAR BITS FOR ALL LINES 

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
sGET A CHARACTER FROM SILO 

sIF NOT VALID DATA, TRY AGAIN 

sEXTRACT LINE NUMBER FORM CHARACTER 


sCLEAR STATUS BITS 


sIF LINE NUMBER IS 4 


sCHECK FOR CORRECT ECHOED CHARACTER 
sIF NOT LINE 4, CHECK DATA 


sCRS EXPECTED NON ECHOED DATA 
;NON ECHOED DATA ERROR 

sUPDATE EXPECTED RECEIVED DATA 
sCONTINUE IF NOT DONE 

sCLEAR ACTIVE BIT 

, a LIMES ARE DONE 








TIONS 
TO ESCAPE TO NEXT TEST 
:SET UP TO LOOP WITH DATA 7 3 





sMASTER CLEAR INTERFACE 
sSET UP ALL LINES TO TRANSMIT 





b TERETE EEEECEEE 








SEQ 5i 
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3400 COCTAL) CHARACTERS 










012777 000005 005110 MOV #5 , 8@OHSCR sSELECT LINE 5 FOR TESTING 
012777 014322 005110 MOV @TWROS , SOHBA s CHARACTER TO BE TRANSMITTED 
;ON LINE 5 IN AUTO ECHO MODE 

012777 177777 005104 MOV @-1,G0HBC sTRANSMIT ONLY 1 CHARACTER ON LINE 5 
012777 133503 005072 MOV #133503, SDHLPR sSET AUTO —- FOR LINE 5 
042767 000040 005162 BIC @40,LINACT sCLEAR LINE ACTIVE BIT 
012777 177777 005064 MOV @-1, SOHBAR sSET BAR BITS FOR ALL LINES 
005000 CLR RO ;KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
017704 005046 18: MOV GOHNAC .R4 sGET A CHARACTER FROM SILO 
100375 BPL it IF NOT VALID DATA, TRY AGAIN 
010403 MOV R4,RS sEXTRACT LINE NUMBER FORM CHARACTER 
000303 SWAB RS 
042703 177760 BIC #177760,R3 sCLEAR STATUS BITS 
010302 an R3 ,R2 

7 000005 CMP R305 sIF LINE NUMBER IS 5 
001432 BEQ sCHECK FOR CORRECT ECHOED CHARACTER 










014246 CMP IF NOT LINE 5, CHECK DATA 
001404 SEQ 
6205 014246 MOV sCRS "EXPECTED NON ECHOED DATA 
HLT sNON ECHOED DATA ERROR 
104001 
000423 
po, os 014246 23: sUPDATE EXPECTED RECEIVED DATA 






sCONTINVE IF NOT DONE 
sCLEAR ACTIVE GIT 
sIF ALL LINES ARE DONE 
sEXIT 

sSELECT LINE 5 


sCLEAR AUTO ECHO FOR LINE S 
sGET REST OF CHARACTERS 
AND CHECK 





046267 014450 005070 
005064 










fe 






Q12777 000005 004752 
042777 100000 004750 





PEGEL EL ELLELL or 


012767 000340 171144 
012767 007060 004734 


CZDHH-CO 
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mer MOV @,FREEZi sSET UP TO LOOP WITH DATA 3 3 


000030 XN@XNe 1 
012777 004000 004664 MOV #67711, 80HSCR sMASTER CLEAR INTERFACE 
004767 004546 JSR PC ,SETALL sSET UP ALL LINES TO TRANSMIT 
1400 COCTAL) CHARACTERS 
012777 000006 004652 MOV #6, @OHSCR sSELECT LINE 6 FOR TESTING 
012777 014324 004652 MOV @TWRDG . BOHBA sCHARACTER TO BE TRANSMITTED 
sON LINE 6 IN AUTO ECHO MODE 





ONLY 1 CHARACTER ON LINE 6 
sSET AUTO ECHO FOR LINE 6 
sCLEAR LINE ACTIVE BIT 




























012777 177777 sSET BAR BITS FOR ALL LINES 
005000 sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
017704 004610 is: sGET A CHARACTER FROM SILO 
100375 sIF NOT VALID DATA, TRY AGAIN 
aoe 3E LIME NUMBER FORM CHARACTER 
042703 177760 sCLEAR STATUS BITS 
010302 
006302 
020327 000006 sIF LIME NUMBER IS 6 
001432 sCHECK FOR CORRECT ECHOED CHARACTER 
— 014246 sIF WOT LIME 6. CHECK DATA 
016205 014246 sCRS EXPECTED NON ECHOED DATA 
sNON ECHOED DATA 
104001 
000423 
105262 014246 2%: sUPDATE EXPECTED RECEIVED DATA 






001352 sCONTINVE IF NOT DONE 
046267 014450 004632 ACTIVE SIT 


3 
pos 
* 


012777 000006 004514 
042777 100000 004512 








Ce ee Ee 


eee Te ee ee a Saas | ee: 
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012767 
012767 
012767 


000031 
012777 
004767 


012777 
012777 


0002 
177777 
004352 


004414 
004414 


004410 
004376 


004466 
004370 


004374 





TS \¥N,10 “, 
T30: MOV @340,PS 
MOV #10, ICOUNT 
MOV #53, ESCAPE 
IF NB <> 
MOV @,FREEZ1 
-ENDC 
XN®XNel 
MOV @6IT11,@0HSCR 
JSR PC .SETALL 
MOV @7,80HSCR 
MOV @TWRO7 , @OHBA 
MOV o- ¥ 
MOV #133503, SOHL 
BIC ol. 
MOV @-1, @OHBAR 
CLR RO 
is: MOV GDHNRC .R4 
BPL is 
MOV R4 RS 
SWAB R3 
#177760,R3 
R2 
R307 
as 
en 
ns 
i 
ae 
23: oo 
LINBITCR2) .LINACT 
38: LINACT 
4$: 
5$: 
LINE *LINE+% 
BSITX*BITX+BITX 
KX*KXel1 
AUTO2 \LINE,\BITX, \KX 


OE ES LT Ee EM OM lh i 8 5 bee 


SEQ 53 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR INTERFACE 


S 
ELECT LINE 7 a 


3S 
s CHARACTER TO BE TRANSMITT 


s0N LINE 7 IN AUTO ECHO MODE 
s TRANSMIT ONLY 1 yrs ON LINE 7 
AUTO — FOR LINE 7 


sSET 
sCLEAR LINE ACTIVE 


sSET BAR BITS FOR ALL LINES 
cEP NUMBER 


AGAIN 
sEXTRACT LINE NUMBER FORM CHARACTER 
sCLEAR STATUS BITS 


3IF LINE NUMBER IS 7 


sCHECK FOR CORRECT ECHOED CHARACTER 
sIF NOT LINE 7, CHECK DATA 


s(RS)*EXPECTED NON ECHOED DATA 
sNON ECHOED DATA ERROR 


sUPDATE EXPECTED RECEIVED DATA 
CONTINVE IF NOT DONE 





LINE 7 

SCLEAR AUTO ECHO FOR LINE 7 
sGET REST OF CHARACTERS 

3 


;UPDATE ECHOED CHARACTER COUNT 
sCHECK ECHOED DATA 


:CRS “EXPECTED ECHOED DATA 
sECHOED DATA ERROR 


:CHECK FOR ITERATIONS, LOOP 





; TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 10 


SEQ 54 
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sTRANSMIT 1 CHARACTER GN LINE 10 WITH AUTO ECHO ENABLED 
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
sCHARACTER LENGTH IS 8 BITS 
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 
007320 TS \XN,10,58 
007320 012767 000340 170450 T31: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
007326 012767 000010 004252 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
007334 012767 007554 004240 + we MOV @5$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: «> 
— MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000032 XN*XNe1 
007342 012777 004000 004170 MOV #61T11,@D0HSCR sMASTER CLEAR INTERFACE 
007350 004767 004052 JSR PC ,SETALL sSET UP ALL LINES TO TRANSMIT 
3400 COCTAL) CHARACTERS 
007354 012777 000010 004156 MOV #10, SOHSCR sSELECT LINE 10 FOR TESTING 
007362 012777 014330 004156 MOV @TWRO10,G@OHBA ;CHARACTER TO BE TRANSMITTED 
s0N LINE 10 IN AUTO ECHO 
007370 012777 177777 004152 MOV @-1,G0H8C sTRANSMIT ONLY 1 CHARACTER ON LINE 10 
007376 022777 133503 004140 MOV #133503, e2HLPR sSET AUTO ECHO FOR LINE 10 
007404 042767 000400 004230 BIC #400, ,LINACT sCLEAR LINE ACTIVE BIT 
007412 012777 177777 004132 MOV @-1, GOHBAR sSET BAR BITS FOR ALL LINES 
0€7420 CLR RO sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
007422 017704 004114 i$: MOV GDHNRC .R4 sGET A CHARACTER FROM SILO 
007326 100375 BPL is sIF NOT VALID DATA, TRY AGAIN 
007430 010403 MOV R4 RS sEXTRACT LINE NUMBER FORM CHARACTER 
007432 0003035 SWAB 
007434 042703 177760 BIC 0177760,R3 sCLEAR STATUS BITS 
007440 010302 MOV »R2 
007442 ASL 
007444 7 900010 CMP R3 #10 sIF LINE NUMBER IS 10 
007450 001432 BEQ sCHECK FOR CORRECT ECHOED CHARACTER 
007452 014246 CHP sIF NOT LINE 10, CHECK DATA 
007456 001404 BEG 
007460 016205 014246 MOV :(RS EXPECTED NON ECHOED DATA 
007464 HLT sNOM ECHOED DATA ERROR 
007464 104001 EMT 
007466 000423 BR 
007470 105262 014246 2s; INCB sUPDATE EXPECTED RECEIVED DATA 
007474 001352 BNE : IF NOT DONE 
007476 046267 014450 004136 BIC sCLEAR ACTIVE BIT 
007504 005767 004132 3$:; TST sIF ALL LINES ARE DONE 
007510 001344 BNE sEXIT 
007512 012777 900010 004020 MOV sSELECT LIME 10 
73520 100000 0040i6 BIC sCLEAR AUTO ECHO FOR LINE 10 
007526 105777 004926 TST8 sGET REST OF 
007532 001333 BNE :AND CHECK 
007534 000407 BR 
007536 005200 4%; INC sUPDATE ECHOED CHARACTER COUNT 
007540 020467 004564 CMP sCHECK ECHOED DATA 
007544 001757 BEQ 
067546 016705 004556 MOV :(RSJ*EXPECTED ECHOED DATA 
007552 HLT sECHOED DATA ERROR 
007552 104002 EMT 
007554 104400 5$: sc s;CHECK FOR ITERATIONS, LOOP 
000011 LINE =LINE +1 





CZ0HH-CO 


007556 


SEQ 55 
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001000 
000011 


012767 
012767 
012767 


000033 
012777 
004767 


012777 
012777 





003700 


BITX=BITX+BITX 
KX *KXel 
\LINE , \BITX, \KX 


AUTO2 
is TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 11 
sTRANSMIT 1 CHARACTER ON LINE 1i WITH AUTO ECHO ENABLED 
TRANSMISSION SPEED FOR ALL LINES IS 96060 BAUD 
:;CHARACTER LENGTH IS 8 BITS 
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 

















TS \XN,10,58 
T32: MOV @340 PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
— MOV 05%. ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: <> 
ae MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
XN=XNel 
MOV @6IT11,@DHSCR sMASTER 
JSR PC .SETALL ;SET UP aye TO TRANSMIT 
MOV 
MOV 
MOV 
MOV 
BIc 
MOV 
CLR 
1%: MOV 
BPL sIF NOT VALID DATA. 
SuAB nee oat haces 
BIC sCLEAR STATUS BITS 
MOV ° 
ASL 
chp R3,@11 sIF LINE NUMBER IS 11 
BEQ 3 FOR CORRECT ECHOED CHARACTER 
po RBUF (R2) ,.R4 3sIF NOT LINE 11. CHECK DATA 
MOV RBUF CR2]) RS s(RS)-EXPECTED NON ECHOED DATA 
HLT :NON ECHOED DATA ERROR 
EMT 
BR 43 
23: — RBUF CR2) sUPDATE EXPECTED RECEIVED DATA 
BIC 
3s: TST 
BNE 
MOV 
BIC 
TST8 
oR 
4%; INC RO sUPDATE ECHOED CHARACTER COUNT 
A ena a ;CHECK ECHOED DATA 


CZDHH-CO 


010004 
010010 
010010 
010012 


010014 








Ra EE .0.QGGk.\.S]SQQ ee ks @waa 


SEQ 56 


MACRO VO4.00 27-JUN-85 13:04:20 PAGE 23-25 


016705 


012767 
012757 
012767 


004322 


167754 
003556 
003544 


003474 
003462 
003462 
003456 
003444 
003534 
003436 





MOV TWRO11,R5 ;(R5S)=EXPECTED ECHOED DATA 
a : sECHOED DATA ERROR 
S$: ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
KX*KXel 
AUTO2 \LINE,\BITX, \KX 
s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 12 
sTRANSMIT 1 CHARACTER ON LINE 12 WITH AUTO ECHO ENABLED 
; TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
sCHARACTER LENGTH IS 8 BITS 
;VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 
TS \XN,10,5$ 
T33: MOV 0340 ,.PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
— MOV 053%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
P <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
~ENDC 
XN=XNei 
MOV #681711 .@DHSCR 
JSR PC .SETALL 
MOV #12. @DHSCR 
MOV @TWRD12, GDHBA 
@-1,@DHBC 
1 
is: 





sIF LINE NUMBER IS i2 
; FOR CORRECT ECHOED CHARACTER 
sIF NOT LINE 12, CHECK DATA 
s(RS)*EXPECTED NON ECHOED DATA 












; ;NON ECHOED DATA ERROR 

$i 

“> liege sUPDATE EXPECTED RECEIVED DATA 
;CONTINUE IF NOT DONE 

TINBETCR2) .LINACT :CLEAR ACTIVE BI 

LINACT sIF ALL LINES ARE DONE 

is sEXIT 

#12. @DHSCR ;SELECT LINE 

#100000, SDHLPR ;CLEAR AUTO ECHO FOR LINE i2 


Sa 


SDHSLR 1GET REST OF CHARACTERS 





—_ 


LLL LLL LL LT ee ee et a TET RE 


SEQ 57 


yy EeeEeEeEe=EeEeeEEeeeeeeeeeeeeeerr’'- ss rere Oe 
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001757 
016705 


104002 
104460 
000013 
004000 
000013 


012767 
012767 
012767 


167516 
003320 
003306 


003236 
003224 
003224 
003220 
003206 
003276 
003200 


063204 











= : ;AND CHECK 
43: INC RO sUPDATE ECHOED CHARACTER COUNT 
a ot eee sCHECK ECHOED DATA 
MOV TWRO12,R5 sCRS)*EXPECTED ECHOED DATA 
vol 2 sECHOED DATA ERROR 
5$: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
KX*KXel 
AUTC2 \LINE,\BITX, \KX 
; TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 13 
;TRANSMIT 1 CHARACTER ON LINE 13 WITH AUTO ECHO ENABLED 
: TRANSMISSION SPEED FOR ALL LINES IS 9600 SAUD 
;CHARACTER LENGTH IS 8 BITS 
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 
TS \XN,10,58% 
T34: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
in“ MOV @5% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
- <> 
MOV @,FREEZi sSET UP TO LOOP WITH DATA s 3 
-ENDC 
XN=XNel 
HOV @6IT11.,80HSCR 
JSR PC .SETALL 
MOV #13, @DHSCR 
MOV @TWRD13.GDHBA 
MOV @-1i, 3 
MOV #133503, BDHLPR 3SET AUTO ECHD FOR LINE 13 
BIC ° sCLEAR LINE ACTIVE BIT 
MOV @-1, @DHBAR 3;SET BAR BITS FOR ALL LINES 
CLR RO KEEP COUNT OF NUMBER 
i$: MOV oR4 
BPL is 
MOV R4 RS 
SWAB 
BIC #177760,R3 ;CLEAR STATUS BITS 
on oR2 
CMP R313 sIF LINE NUMBER IS 13 
BEQ : FOR CORRECT ECHOED CHARACTER 
ia RBUF CR2) .R4 ;IF NOT LINE 13, CHECK DATA 
MOV RBUF CR2).R5 ;(RS)=EXPECTED NON ECHOED DATA 
HLT sNON ECHOED DATA ERROR 
EMT 
BR 4$ 
2s: INCB RBUF CR2) sUPDATE EXPECTED RECEIVED DATA 
BNE sCONTINUE IF NOT DONE 
BIC LINBITCR2),LINACT ;CLEAR ACTIVE BIT 
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012767 
012767 
012767 


000036 
012777 
004767 


012777 
012777 


012777 


003632 


002766 
002766 


002762 
002750 


003040 
002742 


SEQ 58 


;IF ALL LINES ARE DONE 

;EXIT 

;SELECT LINE 13 

;sCLEAR AUTO ECHO FOR LINE 13 
;GET REST OF CHARACTERS 

;AND CHECK 


sUPDATE ECHOED CHARACTER COUNT 
sCHECK ECHOED DATA 


;(RS5)=EXPECTED ECHOED DATA 
sECHOED DATA ERROR 


sCHECK FOR ITERATIONS, LOOP 


s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 14 
s TRANSMIT 1 CHARACTER ON LINE 14 WITH AUTO ECHO ENABLED 
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 


sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


ee 
w 


sMASTER CLEAR INTERFACE 
;SET UP ALL LINES TO TRANSMIT 
3400 COCTAL) CHARACTERS 
sSELECT LINE 14 FOR TESTING 

; CHARACTER TO BE TRANSMITTED 
sON LINE 14 IN AUTO ECHO MODE 
3: TRANSMIT 


3SET 
sCLEAR LINE ACTIVE 

sSET BAR BITS FOR ALL LINES 

:KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 

GET A CHARACTER FROM SILO 

sIF NOT VALID DATA, TRY AGAIN 

sEXTRACT LINE NUMBER FORM CHARACTER 


s;CLEAR STATUS BITS 
sIF LINE NUMBER IS 
; CHE 


CK FOR CORRECT ECHOED CHARACTER 
‘IF NOT LINE 14, CHECK DATA 


:(RS)*EXPECTED NON ECHOED DATA 


3$: TST LINACT 
BNE i$ 
MOV #13, QDHSCR 
BIC #100000, BDHLPR 
TSTB 8DHSLR 
BNE i$ 
BR 5$ 
4$: INC RO 
CMP R4,TWROI3 
BEQ $ 
MOV TWRD1I3,R5 
HLT 2 
EMT 
5$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX*KXe«1 
AUTO2 \LINE , \BITX, \KX 
sCHARACTER LENGTH IS 8 BITS 
TS \XN,10,5$ 
T35: MOV 9340 ,PS 
MOV #10, ICOUNT 
MOV #5$ , ESCAPE 
IF NB <> 
MOV @, FREEZ1i 
-ENDC 
XN=XNeo1 
MOV #81711 ,8DHSCR 
JSR PC ,SETALL 
MOV #14, BDHSCR 
MOV @TWRD14, SDHBA 
MOV @-1 
MOV #133503, SDHLPR 
BIC “EB T 
MOV @-1 4 AR 
CLR RO 
1%: MOV GOHNRC ,R4 
BPL 1$ 
MOV R4,R3 
R3 
BIC #177760,R3 
MOV R2 
ASL Re 
CMP R3, 014 
BEQ &s 
CMP RBUF CR2) ,.R4 
BEQ 2s 
MOV RBUFCR2) RS 
HLT 1 


sNON ECHOED DATA ERROR 





010770 
010776 


011002 
011010 


011016 


011072 
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012767 
012767 
012767 


000037 
012777 
004767 


012777 
012777 


012777 


000340 
000010 
011202 


004000 
002424 


000015 
014342 


177777 
133503 


020000 
177777 
002466 


177760 


000015 


002746 


002630 
002626 


002530 
002524 


002602 
002504 


;UPDATE EXPECTED RECEIVED DATA 
sCONTINUE IF NOT DONE 
;CLEAR ACTIVE BIT 
;IF ALL LINES ARE DONE 
;EXIT 
;SELECT LINE 14 
;CLEAR AUTO ECHO FOR LINE 14 
;GEf REST OF CHARACTERS 
CHECK 


sUPDATE ECHOED CHARACTER COUNT 
s;CHECK ECHOED DATA 


;CRS)=EXPECTED ECHOED DATA 
sECHOED DATA ERROR 


sCHECK FOR ITERATIONS. LOOP 


s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 15 
sTRANSMIT 1 CHARACTER ON LINE 15 WITH AUTO ECHO ENABLED 
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 


8 BITS 
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 


EMT i 
BR ay 
2s: INCB RBUF CR2) 
BNE i$ 
BIC LINBITCR2),LINACT 
3%: TST LINACT 
BNE is 
MOV 414, 8DHSCR 
BIC #100000 , SDHLPR 
TSTB SDHSLR 
BNE i$ 
BR 5$ 
4$: INC RO 
CMP R4,TWRDI4 
BEQ 3$ 
MOV TWRD14 ,.RS 
HLT 2 
EMT 
5$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX=*KXe1 
AUTO2 \LINE , \BITX, \KX 
sCHARACTER LENGTH IS 
TS \XN,10,5$ 
T36: MOV #340 ,PS 
MOV #10, ICOUNT 
MOV #53 ,ESCAPE 
IF NB <> 
MOV @,FREEZ1 
-ENDC 
XN=XNeo1 
MOV #8IT11.8DHSCR 
JSR PC ,SETALL 
MOV #15. @DHSCR 
MOV #TWRO1LS, @DHBA 
MOV @-1,@0HBC 
MOV 133503, SDHL 
BIC 000 ,LINACT 
MOV @-1,@8D0HBAR 
CLR RO 
1$: MOV SDHNRC ,R4 
BPL i$ 
MOV R4.R3 
R3 
BIC 4177760,R3 
MOV R3,R2 
ASL R2 
CMP R3,¢15 





;IF LINE NUMBER IS 15 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 

sSET UP ALL LINES TO TRANSMIT 
3400 COCTAL) CHARACTERS 
sSELECT LINE 15 FOR TESTING 


s;CHARACTER TO BE TRANSMITT 


ED 
sON LINE 15 IN AUTO ECHO MODE 
s TRANSMIT ONLY 1 CHARACTER ON LINE 15 
;SET AUTO ECHO FOR LINE 15 


sCLEAR LINE ACTIVE BIT 


sSET BAR BITS FOR ALL LINES 

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
sGET A CHARACTER FROM SILO 

sIF NOT VALID DATA, TRY AGAIN 

sEXTRACT LINE NUMBER FORM CHARACTER 


sCLEAR STATUS BITS 





CZOHH-CO 


011076 


011314 
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012767 
012767 
012767 


000040 
012777 
004767 


012777 
012777 


012777 
012777 


014246 
014246 


064000 
002166 


000016 
014344 


177777 
133503 


040000 
177777 
002230 


002510 


002372 
002370 


SEQ 60 


sCHECK FOR CORRECT ECHOED oe 
sIF NOT LINE 15, CHECK DAT 


;CRS)©EXPECTED NON ECHOED DATA 
sNON ECHOED DATA ERROR 


;UPDATE EXPECTED RECEIVED DATA 
sCONTINUE IF NOT DONE 

sCLEAR ACTIVE BIT 

;IF ALL LINES ARE DONE 

sEXIT 

sSELECT LINE 15 

;CLEAR AUTO ECHO FOR LINE 15 
;GET REST OF CHARACTERS 

;AND CHECK 


sUPDATE ECHOED CHARACTER COUNT 
sCHECK ECHOED DATA 


sCRS5)=EXPECTED ECHOED DATA 
sECHOED DATA ERROR 


sCHECK FOR ITERATIONS, LOOP 


pine A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 16 


R ON LINE 16 WITH AUTO — ENABLED 


sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 


s;DISABLE ALL INTERRUPTS 
SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 
sMASTER CLEAR INTERFACE 


SELECT LINE 16 FOR TESTING 
RANSMI 


6 
sCHARACTER TO BE T 


TTED 
sON LINE 16 IN AUTO ECHO MODE 
sTRANSMIT ONLY 1 CHARACTER ON LINE 16 
sSET AUTO ECHO FOR LINE 16 


sCLEAR LINE ACTIVE BIT 


sSET BAR BITS FOR ALL LINES 


sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 


sGET A CHARACTER FROM SILO 
:IF NOT VALID DATA, TRY AGAIN 


BEQ 4$ 
CMP RBUF CR2) ,.R4 
BEQ 2¢ 
MOV RBUF CR2),R5 
HLT 1 
EMT 
BR 44 
2%: INCB RBUF CR2) 
BNE i$ 
BIC LINBI7CR2),LINACT 
33: TST LINACT 
BNE i$ 
MOV #15, @DHS 
BIC #100000, BDHLPR 
TSTB SDHSLR 
BNE i$ 
BR 53 
4$; INC RO 
CMP R4,TWRD15 
BEQ 3$ 
MOV TWROD1IS .RS 
HLT 2 
EMT 
5$: SCOPE 
LINE *LINE+1 
BITX=BITX+BITX 
KX*KX+1 
AUTO2 \LINE,\BITX, \KX 
RANSMIT 1 CHARACTER 
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BA 
sCHARACTER LENGTH IS 8 BITS 
TS \¥N,10,5% 
T37: MOV #340 ,PS 
MOV #10, ICOUNT 
MOV 05% , ESCAPE 
-IF NB <> 
MOV #,FREEZ1 
-ENOC 
XN=XNo1 
MOV #81711 ,80HSCR 
JSR PC, SETALL 
MOV #16, @DHSCR 
MOV @TWRD16, BOHBA 
MOV @-1,80HB6C 
MOV #133503, GDHLPR 
BIC #40000 ,LINACT 
MOV #-1,90HBAR 
CLR RO 
1$: MOV SDHNRC ,R4 
BPL i$ 
MOV R4,RS 


sEXTRACT LINE NUMBER FORM CHARACTER 


CZOHH-CO 


-— 


011316 


——EeEE=—=—— 


SEQ 61 
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177760 


002252 


002134 
002132 


002116 


16 
002106 





SWAB RS 
BIC #177760,R3 ;CLEAR STATUS BITS 
MOV R3,R2 
ASL Re 
CMP R316 ;IF LINE NUMBER IS 16 
BEQ 4$ ;CHECK FOR CORRECT ECHOED CHARACTER 
and a nes ;IF NOT LINE 16, CHECK DATA 
MOV RBUF CR2),R5 :CRS)*EXPECTED NON ECHOED DATA 
HLT 1 sNON ECHOED DATA ERROR 
EMT 
BR 4$ 
23: INCB RBUF CR2) sUPDATE EXPECTED RECEIVED DATA 
BNE sCONTINUVE IF NOT DONE 
BIC LINBITCR2),LINACT sCLEAR ACTIVE BIT 
3$: TST LINACT sIF ALL LINES ARE DONE 
BNE $ ;EXIT 
MOV #16, @DHSCR sSELECT LINE 16 
BIC » SDHLPR sCLEAR AUTO ECHC FOR LINE i6 
TST8 sGET REST OF CHARACTERS 
~y A sAND CHECK 
4$: INC sUPDATE ECHOED CHARACTER COUNT 
a ce s;CHECK ECHOED DATA 
MOV TWRO16 .RS ;(RS)=EXPECTED ECHOED DATA 
_ : sECHOED DATA ERROR 
5$: = sCHECK FOR ITERATIONS, LOOP 
t+ 





sTRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 17 
sTRANSMIT 1 CHARACTER ON LINE 17 WITH AUTO ECHO ENABLED 
, SSION SPEED ey TS 9600 


LENGTH IS 8 BITS 
;VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 
TS \XN.10,5% 
T40: 

















MOV —«-@340,.PS ;DISABLE ALL INTERRUPTS 
MOV -—«- #10, TCOUNT 3SET UP FOR 10 ITERATIONS 
ore OY (RS ESCAPE 3SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV —Ss-@, FREE ;SET UP TO LOOP WITH DATA :3 
XN=XNel 
MOV —«- @BIT11, @DHSCR 
JSR —s«- PC, SETALL 
MOV _—s- #47, @DHSCR 
MOV @TWRD17, GOHBA 
0 ECHO MODE 
MOV @=1, @DHBC : T ONLY 1 CHARACTER ON LINE 17 
MOV #133503, SOMLPR ;SET AUTO ECHO FOR LINE 1? 
BIC @100000;LINACT ;CLEAR LINE ACTIVE BIT 














—EEE 
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012777 
005000 


177777 
001772 


177760 


000017 
014246 
014246 


002010 


002014 


001676 
001674 


23: 





2 
so ~ 





td 


vt 





43: 


ee Td 


- 1 a 8DHBAR 
RO 

or oR4 
R4,R3 

R3 
0177760,R3 
R3,R2 

Re 

R3,@17 

4$ 

RBUF CR2),R4 
“ad CR2),R5 


44 

ad CR2) 
LINBITCR2),LINACT 
LINACT 








SEQ 62 


sSET BAR BITS FOR ALL LINES 

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
sGET A CHARACTER FROM SILO 

sIF NOT VALID DATA, TRY AGAIN 

sEXTRACT LINE NUMBER FORM CHARACTER 


sCLEAR STATUS BITS 


;IF LINE NUMBER IS 17 


sCHECK FOR CORRECT ECHOED CHARACTER 
sIF NOT LINE 17, CHECK DATA 


s(RS)*EXPECTED NON ECHOED DATA 
sNON ECHOED DATA ERROR 


sUPDATE EXPECTED RECEIVED DATA 
ONTINUE IF NOT DONE 


sUPDATE ECHOED CHARACTER COUNT 
sCHECK ECHOED DATA 


s(RS)=EXPECTED ECHOED DATA 
sECHOED DATA 


sCHECK FOR ITERATIONS, LOOP 








CZOHH-CO 


utr 


> 011700 
011700 
011706 
011714 


6 011722 
7 011730 
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012767 
012767 
012767 


——— 


177760 


014350 
014310 


014310 





166070 
001672 
001660 


001610 


001566 
001554 


001630 
001530 


001430 
001522 


13:04:20 PAGE 24 


.IF NB 
-ENDC 


XN=XNel 


is: 


WN 
oes 
oe 








SEA 63 


sTRANSMIT 1 CHARACTER ON EACH LINE WITH AUTO ECHO ENABLED 
sRECEIVE 64 CHARACTERS ON EACH LINE 


TS \XN,100,5$ 
T41: MOV 


MOV 
MOV 
«> 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
OEC 
MOV 
TST8 
MOV 


BIC 


MOV 
ASL 
INC 
CHP 
BEQ 
MOV 
MLT 
EMT 
BR 
OEC 
BGT 
OMI 
MOV 
BIC 
BIC 
TST 
BNE 
SCOPE 


#340 ,PS 
#100, ICOUNT 
05%, ESCAPE 


@,FREEZ1 


#61711, @0HSCR 


4 s 
#100,CR3)- 
#2 ,R1 


is 
@-1,AEACT 
#-1, GOHBAR 
@DHSCR 

a 
GDHNRC, 
R4 RS 
R3 








sDISABLE ALL INTERRUPTS 
sSET UP FOR 100 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3 3 
sMASTER CLEAR INTERFACE 

sSET UP PARAMETERS FOR 16 LINES 
sCHARACTER TO BE TRANSMITTED 
sRECEIVED CHARACTER COUNT 

sEXPECTED NUMBER OF CHARACTERS 

sLOAD BUS ADDRESS 

sCLEAR RECEIVED CHARACTER COUNT 
s*NUMBER OF CHARACTERS TO BE RECEVED 
sADVANCE POINTER 

sCONTINVE IF NOT DONE 


sINDICATE AUTO ECHO ACTIVE 
ALL LINES 


sUPDATE RECEIVED COUNT FOR LINE 
sCHECK EXPECTED AND RECEIVED DATA 


sCRS)°EXPECTED ECHOED DATA 
ECHO ERROR 








CONTINUE 
sCHECK FOR ITERATIONS, LOOP 


en 





CZDHH-CO 


1 
2 012132 
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016767 


013701 
001405 





001376 


167062 


166602 


001312 


.EOP 


EOP: 


LOGICAL: 








38; 
4$: 


*/BEGIN/ 


sEND OF PASS 
sTYPE NAME OF TEST 
sUPDATE PASS C 


OUNT 
sCHECK FOR EXIT TO ACT-11 


sRESTART TEST 





TYPE 
MEPASS 
CLR LAST 
CLR ERRFLG 
INC PASCNT 
TST LIGHTS 
BNE et 
TYPE 
PASTXT 
OCTASC 
PASARG 
BR 33 
MOV PASCNT .LIGHTS 
MOV 0042 Ri 
BEQ REST 
RE 
JSR PC ,.CRi) 
Nop 
NOP 
NOP 
JMP 
WORD i 
-BYTE 6.2 
. WORD 
3 CHECK 
sCHECK FOR 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
INC 
CMP 
BNE 
CLR 
CLR 
MOV 
RTI 
MOV 
RTI 
TST 
BEG 








sTYPE NAME OF TEST 


sCLEAR LAST ERROR PC 
sCLEAR ERROR FLAG 


sDISPLAY PASS COUNT 


sCHECK FOR ACT-11 OR DOP 
sIF NOT, CONTINUE TESTING 


s PARAMETERS TO PRINT PASSCOUNT 


SEQ 64 


oo ef @ Ge 
> &2 SUUGS 





34; 6 





CZOHH-CO 


012330 
4 012332 
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000762 BR 2% 
-SCOP1 


sCHECK FOR FREEZE ON CURRENT DATA 
032777 001000 166440 SCOPIR: aM + haa 


001402 i 
016716 001236 MOV FREEZ1 (CSP) 
000002 18: RTI 





SEQ 65 


CZDHH -CO 


-— 


1 012350 
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020000 166422 ERRORS: 


001252 


001244 
001174 


000010 





001104 


i$: 


TYPMSG: TYPE 





sERROR HANDLER 





@SW13, GSWR 
HALTS 

(SP) .LAST 
i$ 

(SP) ,LAST 
ERRFLG 
CSP).RS 
@2,R5 

CRS) .R4 
R4 

R4 
#177001,R4 


ro bag Pi 


CRE +, ERRMSG 
CR4) .DATABP 


ERRFLG 


2te 66 
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001006 


. TRPSRV 


TRPSRV: 


TRPOK: 


. SAVREG 


SVOSP: 


SVOS: 





sTRAP DISPATCH SERVICE 
sARGUMENT OF TRAP IS EXTRACTED 


sAND USED AS OFFSET TO OBTAIN POINTER 


3TO SELECTED SUBROUTINE 


;GET PC OF RETURN 

;*=PC OF TRAP 

sGET TRP 

sMULTIPLY TRAP ARG BY 2 

;CLEAR UNWANTED BITS 

sPOINTER TO SUBROUTINE ADDRESS 
sSUBROUTINE ADDRESS 

3GO0 TO SUBROUTINE 


sSAVE PC OF TEST THAT FAILED AND RO-RS 


MOV (SP),-CSP) 
SUB @2,(SP) 

MOV aC SP), (SP) 
ASL (SP) 

BIC #177001, (SP) 
ADO @TRPTAB, (SP) 
MOV ac SP), (SP) 
JMP ac ° 

MOV 4( SP), SAVPC 
sSAVE RO-RS 

MOV RS .SAVRS 
MOV R4, SAVR4 
MOV R3,.SAVRS 
MOV R2.SAVR2 
MOV R1.SAVR1 
MOV »SAVRO 
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1 012706 . TYPER 
sTELETYPE OUTPUT ROUTINE 

012706 017605 000000 TYPER: MOV Q@(SP),RS 
012712 062716 000002 ADD @2,(SP) 
012716 105777 000612 18: TSTB STPCSR 
012722 100375 BPL La 
012724 105715 TSTB CRS) 
012726 901001 BNE 2$ 
012730 000002 RTI 
012732 112577 900600 23: MOVB CR5)+, @TPOBR 
012736 000767 BR is 

2 012740 - INSTRG 


sASCII STRING INPUT ROUTINE 
012740 017667 000000 900006 INSTRG: oa QC SP),MSG 


013012 117777 000514 000516 
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000013 


.PARAMS 


PARAMS : 


PARAM : 


is: 


PARERR: 


ADRCNT =LOBITS+1 


sCONVERT ASCII STRING TO OCTAL 








sSTORE NUMBER AT SPECIFIED ADDRESS 





(SP),.RS 


CRS)+, ADRCNT 


RS (CSP) 
R 


) 

@INBUF ,R4 
#15, (R4) 
PARERR 


PARAM 
sTEST TO SEE IF NUMBER IS WITHIN LIMITS 






RS .MILIM 
PARERR 
R5.LOLIM 
PARERR 
LOBITS RS 
PARERR 


DEVADR ,R4 
RS .CRE)- 
2,85 
ADRCNT 
is 
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017601 


06 
015172 
177770 
000260 


015204 


.OCTASC 


. OCTASN: 


1$: 


2s: 


3$; 


4$: 


sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 





R4, 
€177770,R3 
€260 ,R3 
R3,CRO)- 
R4 

R4 

R4 

RS 


33 

@MDATA ,R3 
-CRO), CRS) 
CHRCNT 
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000020 


177777 


000074 
000070 
000056 


000114 


CLRALL : 
1$: 


SETALL : 


1%: 


CCLRALL 


sCLEAR AL. oYTE COUNT AND BUS ADDRESS REGISTERS 


#20,RO0 
SOHBA 
SBDHBC 
@ONSCR 
RO 

1$ 


R PC 
SSETALL 


sSET UP TO CLEAR 16 
;CLEAR BUS ADDRESS 
sCLEAR BYTE COUNT 
sANVANCE LINE NUMBER 
sCONTINUE IF NOT DONE 


sRETURN TO CALLING ROUTINE 


;SET BYTE COUNT FOR ALL LINES TO 400 
ADDRESS FOR ALL LINES TO TBUF 
sCLEAR EXPECTED CHARACTER BUFFERS 

sSET LINE ACTIVE BITS FOR ALL LINES 


;SET BUS 


MOV 





#20,R0 





sSET UP TO LOAD 16 


sRECEIVED CHARACTER ER 
sWILL BE HIGH BYTE 
;OF EXPECTED RECEIVED CHARACTER 


sLOAD SYTE COUNT 
sSET LINE SPEED TO 4800 BAUD 


sRECEIVED CHARAC 

sLOAD HIGH BYTE 

sADVANCE LINE NUMBER TO NEXT LINE 
sUPDATE POINTERS 

sCONTINVE IF NOT DONE 


sSET ACTIVE FLAGS FOR ALL LINES 
sRETURN TO CALLING ROUTINE 


DHH-CO 


TLVL > 


1 013530 


013530 
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-POINT 


= 6h6frhre 


+/DHSCR,DHNRC , DHLPR, DHBA , DHBC , DHBAR , OHBCR, DHSSR, DHSLR, DHRVEC ,OHRLVL , DHTVEC ,DHTLVL/ 
sINDIRECT POINTERS ; 3 


177560 
177562 
177564 
ies 


ooooooococococo 


t/ENDFLG ,LINACT,AEACT/ 
sPROGRAM VARIABLES 


ooo oxvrococecoocooococococoeco 








<DHSCR ,DHNRC , OHLPR , DHBA, DHBC ,DHBAR , DHBCR , DHSSR , DHSLR , OHRVEC , DHRLVL , DHTVEC, DH 


r 
<ENDFLG,LINACT ,AEACT> 


CZOHH-CO 
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000001 


000 
000377 


TDAT=1 


-NLIST 
TDAT#=TDAT+1 
.LIST 


-ENOR 
-BYTE  TDAT 
TOAT=TDAT+1 


-BYTE  TDAT 
TOAT=TDAT+1 
TOAT 


BYTE  TDAT 
TDAT=TDAT+1 


-BYTE TOAT 
TDAT=TDAT+1 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE  TODAT 
TDAT=TDAT+1 
-BYTE TODAT 
TDAT=TDAT+1 
-BYTE  TOAT 
TOAT=TDAT+1 


-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 





ome ME 


CZO0HH-CO 


013700 
013701 
013702 
013703 
013704 
013705 
013706 
013707 
013710 
013711 
013712 
013713 
013714 
013715 
013716 
013717 
013720 
013721 
013722 
013723 
013724 
013725 
013726 
013727 
013730 
013731 
013732 
013733 


MACRO V04.00 


000032 
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TDAT=TDAT+1 
-BYTE  TDAT 
TDOAT=TDAT+1 
-BYTE  TDAT 
TDOAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 


-BY 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT*TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
yo tee 8 


—E  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE TDAT 
TOAT=TDAT+1 
-—BYTE  TDAT 
TOAT=TDAT+1 
-BYTE TOAT 
TDOAT=TDAT +1 

-BYTE  TDAT 
eas 


TOAT=TDAT+1 





SEQ 74 


CZOHH-CO 


013734 
013735 
013736 
013737 
013740 
013741 
013742 
013743 
013744 
013745 
013746 
013747 
013750 
013751 
013752 
013753 
013754 
0135755 
013756 
013757 
013760 
013761 
013762 
013763 
013764 
013765 
013766 
013767 
013770 
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-BYTE TDAT 
TDAT=TDAT +1 


TDAT=1DAT+1 
-BYTE 


TDAT 
TDAT=TDAT+1 
-BYT TOAT 


YT 
TOAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TOAT*TDAT+1 
-BYTE  TOAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT +i 

YT TDA 


TOAT=TDAT+1 
BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 
BYTE  TDAT 
TDAT=TDAT+1 
BYTE TDAT 
TDAT=TDAT +1 
-BYTE TODA 
TDAT=TDAT+1 


TDAT=TDAT+1 


-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TOAT 
TDAT=TDAT+1 
-BYTE  ITDAT 
TDAT=TDAT+1 
E  TOAT 


-BYT 





eee «oer eee A UE 


SEQ 75 


™_eeee EEO in cet —— 


SEQ 76 


po 
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000123 TDAT=TDAT+1 
013771 123 -BYTE  TOAT 

000124 TOAT=TDAT+1 
013772 124 -BYTE  TDAT 

000125 TDAT=TDAT+1 
013773 i -BYTE  TOAT 

000126 TDAT=TDAT+1i 
013774 126 -BYTE  TDAT 

000127 TDAT=TDAT +1 
013775 127 BYTE TDAT 

0001306 TOAT=TDAT+1 
013776 1 -BYTE  TDAT 

000131 TDAT=TDAT+1 
013777 131 -BYTE  TDAT 

000132 TOAT=TDAT+1 
014000 132 BYTE TDA 

000133 TDAT=TDAT+1 
014001 1 -BYTE AT 

000134 TDAT=TDAT +1 
014002 134 -BYTE  TDAT 

000135 TOAT=TDAT+1 
014003 1 -BYTE  TODAT 

000136 TOAT=TDAT+1 
014004 136 -BYTE  TDAT 

000137 TDAT=TDAT +1 
014005 137 -BYTE  TDAT 

000140 TOAT*TDAT+1 
014006 140 -BYTE  TOAT 

000141 TOAT=TDAT+1 
014007 141 -BYTE TDAT 

000142 TDAT=TDAT+1 
014010 1 BYTE  TOAT 

000143 TOAT=TDAT +1 
014011 143 -BYTE TOAT 

000144 TDAT=TDAT +1 
014012 ae 

000145 TOAT*TDAT+1 
014013 145 

000146 TDAT*TDAT +1 
014014 146 : 

000147 TOAT=TDAT +1 
014015 147 -BYTE 

000150 TOAT=TDAT +1 
014016 150 

000151 TDAT=TDAT +1 
014017 151 . 

000152 TDAT=TDAT +1 
014020 1 -BYTE  TOAT 

000153 
014021 153 

000154 
014022 154 

000155 
014023 155 

000156 
014024 i . 

000157 TOAT=TDAT +1 





SEQ 77 





014061 
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014025 157 .BYTE TOAT 
000160 TDOAT=TDAT+1i 
014026 160 -BYTE TOAT 
000161 TDOAT#TDAT+1 
014027 161 -BYTE TDAT 
000162 TDOAT#TDAT+1 
014030 162 YTE TDAT 
000163 TDOAT*TDAT+i 
014031 1 .BYTE A 
000164 TOAT*TDAT+1 
014032 1 -BYTE TDAT 
000165 TDAT=TDAT+i 
014033 165 -BYTE TDAT 
000166 TOAT=TDAT+i 
014034 i -BYTE TDAT 
000167 TDAT=TDAT+1 
014035 1 .BYTE TDAT 
000170 TDAT=TDAT+e1 
014036 170 -BYTE TDA 
000171 TOAT=TDAT +1 
014037 i7i ‘ E—E 10 
000172 T*TDAT+i 
014040 172 -BYTE  TDAT 
000173 TOAT=TDAT+i 
014041 i BYTE TDA 
000174 TOAT=TDAT +i 
014042 174 -BYTE TOAT 
000175 TOAT*TDAT+e1 
014043 175 P TOAT 
000176 TOAT*TDAT+1 
014044 i -BYTE TOAT 
000177 TOAT*TDAT+1i 
014045 177 -BYTE TDAT 
000200 TOAT*TDAT +i 
014046 200 -BYTE ‘DAT 
ooc201 TOAT=TDAT+i 
014047 201 -BYTE TDAT 
000202 TDAT=TDAT +1 
014050 202 -BYTE TDAT 
000203 
014051 203 
000204 
014052 204 





-BYTE ‘TODAT 





MACRO VO4.00 27-JUN-85 13:04:20 PAGE 33-5 


Gulobatedatstststalubals 





eo as BS 


-BYTE TDAT 
TDAT=TDAT+1 
-BYTE TDAT 
TDAT*TDAT+i 
-BYTE TOAT 
TOAT=TDAT +i 
-BYTE TD 
TDOAT=TDAT+i 
YT TO 
YT TOAT 
TOAT=TDAT+i 
-BYTE TOAT 
TOAT=TDAT +i 
-BYTE TODAT 
TOAT=TDAT+i 
TOAT 








CZ0OHN-CO 


014116 
014117 
014120 
014121 
014122 
014123 
014124 
014125 
014126 
€14127 
014130 
014131 
014132 
014133 
014144 
014135 
014136 
014137 
014140 
014141 
014142 
014143 
014144 
014145 
014146 
014147 
014150 
014151 
014152 
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BYTE  TOAT 


TDAT*TDAT+1 
-BYTE TDAT 
TDAT=TDAT el 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TOAT=TDAT +1 


-BYTE  ‘TDAT 
TDAT=TDAT oi 
-BYTE ‘TDAT 
TDAT=TDAT +i 
-BYTE TDAT 


TDAT=TDAT +1 
-BYTE  ‘TDAT 
TDAT=TDAT +i 
-BYTE  TOAT 
TOAT=TDAT +1 
-BYTE TODAT 
TDAT=TDAT +1 
-BYTE TOAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +i 
-BYTE  TDAT 
TOAT=TDAT +i 
-BYTE TODAT 
TDAT=TDAT+1 
-BYTE  TDAT 


TDAT*TDAT +1 
-BYTE  TOAT 





.4Prt- LY 


014153 
014154 
014155 
014156 
014157 
014160 
014161 
014162 
014163 
014164 
014165 
014166 
014167 
014170 
014171 
014172 
014173 
014174 
014175 
014176 
014177 
014200 
014201 
014202 
014203 
014204 
014205 
014206 


PALAU VUS.UN ef JUN-OS L3O:US:eU FAGE 35-/ 


TOAT*TDAT+1 


TOAT=TDAT+1 
BYTE  TDAT 
TDAT =TDAT+1 
-BYTE  TDAT 
TDAT=TOAT +1 


TDAT=TDAT +1 
-BYTE T 
TDAT=TDAT +1 
-SYTE TDAT 
TDOAT=TDAT +1 
-BYTE  TOAT 
yom ggg 
-BYTE TDAT 

TDAT=TDAT +1 


TDAT=TDAT+1 





DHH-CO 


014207 
014210 
014211 
014212 
014213 
014214 
024215 
014216 
014217 
014220 
014221 
014222 
014223 
014224 
014225 
014226 
014227 
014230 
014231 
014232 
014233 
014234 
014235 
014236 
014237 
014240 
014241 
014242 
014243 
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341 
000342 
000343 

343 
000344 

344 
000345 

345 
000346 
SS 
000350 

350 
000351 

351 
000352 
000352 

$53 
— 
000355 
000356 

356 
000357 

357 
000360 

360 
000361 

361 
000362 

362 
000363 

363 
000364 

364 
000365 
000366 

366 
000367 

367 
000370 

370 
000371 

371 
000372 

372 
000373 

373 
000374 

374 
000375 

375 


-BYTE  TDAT 


.BYT TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 


T 
TDAT=TDAT+1 
-BYTE TDAT 
TDAT=TDAT +i 
-BYTE §TDAT 
TDAT=TDAT +1 
-BYTE TDAT 
TDAT=TDAT +1 
-BYTE TDAT 
TDAT=TDAT +i 

TOA 


E 
TDAT=TDAT +1 
-BYTE  TOAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
-BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 





~~ ee 


~~ 


wee OPP te ts we we 


014244 
014245 


11 
12 014246 
13 


Peri 


000000 
014310 


wvwvr.«. Vw 


Sere Vnr es 2eVF-eV FAVE wv 


TDAT*TDAT+1 


-BYTE  TDAT 
TDOAT=TDAT+1 
oO EN 

RBUF : 0 
.*,. +40 


ee 





BAO UWN we 


OHH-CO 


014310 
014310 


014312 
"14312 


014314 
014314 


014316 
014316 


014320 
014320 


014322 
014322 


014324 
014324 


014326 
014326 


014330 
014330 


014332 
014332 


914334 
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000020 


-MACRO WORDS WONAME,K,DATA 
‘WONAME'K' ; DATA 


-ENOM WORDS 
K=KX 
DATA=DATAX 
KX=0 

-REPT 20 


-NLIST 

DATAX#KX*#400+100377 

-LIST 

WORDS t/TWRD/,\KX, \DATAX 
NLIST 


KX=KXo2 
LIST 


-ENDR 

DATAX=KX #400 +100377 

WORDS t/TWRD/,\KX, \DATAX 
TWRDO: 100377 

KX*KXel 
DATAX=*KX#400+100377 

WORDS ‘+t/TWRD/,\KX, \DATAX 
TWRO1: 100777 


i 
DATAX=KX #400 «100377 
WORDS t/TWRD/, \KX, \DATAX 
TWROS: 101777 


1 
DATAX=KX#400+100377 
WORDS %/TWRD/,\KX, \DATAX 
TWRO4: 102377 


DATAX=KX#400+100377 

WORDS ‘t/TWRD/,\KX, \DATAX 
TWRDS: 102777 

KX=KXei 
DATAX=KX*400+100377 

WORDS *+/TWRD/,\KX, \DATAX 
103377 






1 
DATAX=KXs400-1 





00377 
*/TWRD/ , \KX, \DATAX 
104777 
DATAX=KX#400+100377 
WORDS *+t/TWRD/,\KX, \DATAX 





DHH-CO 


014334 


014336 
014336 


014340 
014340 


014342 
014342 


014344 
014344 


014346 
014346 


014350 
014350 


014352 
014352 


014354 
014354 


014356 
014356 


014360 
014360 


014362 
014362 


014364 
014364 


014366 
014366 


014370 
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105377 
000013 
105777 
105777 


0000 
106377 


000000 
000010 


TWRO12: 105377 

KX*KXe1 
DATAX#KX#400+100377 

WORDS t/TWRD/,\KX, \DATAX 
TWRO13: 105777 

KX*KXe1 
DATAX#KX#400+100377 

WORDS t/TWRD/,\KX, \DATAX 
TWRD14: 106377 

KX*KXe) 
DATAX#*KX#400+100377 

WORDS t/TWRD/,\KX, \DATAX 
TWRDI5: 106777 

KX*KXe1 
DATAX#KX#400+100377 

WOROS ‘t/TWRD/,\KX, \DATAX 
TWRO16: 107377 

KX=*KXel1 
DATAX=KX#400+100377 

WORDS */TWRD/,\KX, \DATAX 
TWRD1I7: 107777 





Sees eens ee 


Xeol 
WORDS *t/RCNT/,\KX, \DATAX 





ee 


014370 


014372 
014372 


014374 
014374 


014376 
014376 


014400 
014400 


014402 
014402 


014404 
014404 


014406 
014406 


014410 
014410 


014412 
014412 


014414 
014414 


014416 
014416 


014420 
014420 
014422 
014422 


014424 
014424 


014426 
014426 


TAWA Y 
000000 
000011 


000000 
000012 


000000 
000013 


000000 
000014 


GPrvwVNne!? £495 V9 ECV FAVE ore 


RCNT10: 0 


KX=KXe1 


WORDS 
RCNT11i: 0 


KX*KXe1 
WORDS 


t/RCNT/, \KX, \DATAX 


t/RCNT/, \KX, \DATAX 


RCNTi2: 0 


KX#KXel 
WORDS 


t/RCNT/, \KX, \DATAX 


RCNT13: 0 


KX*KXel 


WORDS 
RCNT14: 0 
ere a ee ORT 


KX*KXel 
WORD 





t/RCNT/, \KX, \DATAX 


ns ee aT 


pe oeene » NAR NORTE 


20 
t/RDOCT/ , \KX, \DATAX 


ores oR, ENTER 


i 
en ee 


ers ene 


etl Nace gaa 


e1 

ayaa ro Daal 
i 

re eee ee 


i 
re en Re 


+ a dele saa 





VeVi wy PALA FUN. VY EP eUUINT OO L£9iUGIi CV FADE Of-5 


014430 WORDS t/RDCT/,\KX, \DATAX 
014430 009000 ROCT10: 0 
000011 KX*KXe1 
014432 WORDS t/RDCT/,\KX, \DATAX 
014432 000000 ROCT11: 0 
000012 KX*KXe1 
014434 WORDS t/RDCT/,\KX, \DATAX 
014434 000000 ROCT12: 0 
000013 KX*KXe1 
014436 WORDS t/RDCT/,\KX, \DATAX 
014436 000000 ROCTi3: 0 
000014 KX*KX+1 
014440 WORDS t/ROCT/,\KX, \DATAX 
014440 000000 ROCT14: 0 
000915 KX*KX+1 
014442 WORDS t/RDCT/, \KX, \DATAX 
014442 000000 ROCTiS: 0 
000016 KX*KXe1 
014444 WORDS t/RDCT/, \KX, \DATAX 
014444 000000 RDCTi6: 0 
000017 KX*KXel1 
014446 WORDS ¢t/RDCT/.\KX, \DATAX 
014446 000000 ROCTi?7: 0 
000020 KX=*KXe1 
42 014450 000001 LINBIT: 1 
43 014452 000002 2 
44 014454 000004 & 
45 014456 000010 10 
46 014460 000020 20 
47 014462 000040 40 
48 014464 000100 100 
49 014466 000200 200 
50 014470 000400 400 
51 014472 001000 1000 
S2 014474 002000 2000 
53 014476 004000 4000 
54 014500 0610000 10009 
55 014502 20000 
56 014504 040000 40000 
57 014506 100000 100000 





CZ0HH-CO 


1 014510 


014510 
014512 
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163274 
177072 
014546 


177054 


014510 
000340 
015644 
000360 
000354 


163262 


163230 
163174 


-PFAIL 


PFAIL: 


RESTAR: 


PFTAB: 


sENTER HERE ON POWER FAILURE 


MOV RO,-CSP) 
MOV R1.,-CSP) 
MOV R2,-CSP) 
MOV R4,-(SP) 
MOV RS,-CSP) 
MOV 24,-CSP) 
MOV SP ,SAVSP 
MOV @RESTART ,24 
HALT 

BR 


s;SAVE RO-RS ON PROCESSOR STACK 


sSAVE STACK POINTER 
sSET UP FOR POWER UP TRAP 
sHALT ON POWER DOWN NORMAL 


sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


MOV 
MOV 








sRESTORE STACK POINTER 
sRESTORE RO-RS 


sSET UP FOR POWER FAILURE 





CZDHH-CO 


014774 
014777 
0 


015113 


MACRO V04.00 
015 012 
104 110 
061 040 
125 124 
040 105 
110 117 
124 105 
124 040 
012 000 
015 012 
105 103 
117 122 
101 104 
122 105 
123 055 
015 012 
117 116 
122 117 
040 122 
107 111 
124 105 
040 101 
104 122 
123 123 
000 
040 040 
000 
015 O12 
040 040 
117 127 
122 040 
10), 111 
125 122 
054 040 
122 117 
122 101 
040 122 
123 124 
122 124 
101 124 
124 105 
124 040 
116 040 
122 117 
122 105 
123 000 
015 012 
132 104 
110 055 
060 000 
015 012 
101 123 
040 103 
125 116 
040 075 


27-JUN-85 13:04:20 PAGE 36 


MSG 
MTITLE: 


MVECTO: 


*/DH11 AUTO ECHO TEST/,t/CZDHH-CO/ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


<15><12><12>/DH1i1 AUTO ECHO TEST /<15><12> 


<15><12>/VECTOR ADDRESS-/ 


<15><12>/CONTROL REGISTER ADDRESS-/ 


4 ¥ 


<15><12> 
/ POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 


MEPASS: .ASCIZ <15><12>/CZDHH-CO/ 


PASTXT: 


-ASCIZ 





<15><12>/PASS COUNT = / 


CZOHH-CO 


015116 
015117 


Wh 
°o 
- 
w 
~~ 
s 


1 
4 015160 
015160 
015172 


015204 
S 015216 
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AR : 
MTSTPC: 


-EVEN 


-EVEN 
. TRPTAB 


EM1: 


-ASCIZ 
-ASCIZ 


;sTABLE OF POINTERS FOR TRAP DECODING 
TRPTAB: 
T 


€15><12>/R/ 
<15><12>/TEST PC-/ 


sBUFFERS FOR INPUT-OUTPUT 


0 
0 


sTABLE OF POINTERS TO ERROR MESSAGES AND DATA 


Eni 
OT1 


En2 
OT2 
ENS 


dT2 
-ASCIZ /AUTO ECHO ERROR/<15><12>/EXP 


-ASCIZ 


/NON ECHOED DATA ERROR/<15><12>/EXP REC LINE? 





SEQ 89 


14 015343 





-ASCIZ /ECHOED DATA ERROR/<15><12>/ExP 


REC 


LINE/ 





SEQ 90 


CZDHH-CO MACRO VO4.00 27-JUN-85 13:04:20 PAGE 36.3 


SYMBOL TABLE 





19200 WORDS ( 75 PAGES) 


555 SEEEEEEE S55 
saausunangeayazggaceeeeneeansnenys 





ee ee ee ee 





Mp pee Penseaeaaee stare 
BE ScedENsicas 


014314 


SEQ 91 


‘ee we 6Pl we el we .-*' wwe Ver ae ew Fee w TF Pw wy 


SYMBOL TABLE 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
CZDHHC .BIN,CZDHHC . SEQ*CZDHHC .DOC .DHMACA. MAC, CZOMMC ..P11 





